/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / S / System 7 corner.sit / System 7 corner / 7.0fostuff / 7.0fo.p

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 37 2e 30 66 6f 2e | 70 00 00 00 00 00 00 00 |..7.0fo.|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 28 1b 00 | 00 0c 50 a4 14 6a 1c a4 |.....(..|..P..j..|
|00000060| 14 6a 1c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.j......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 14 81 00 00 |........|........|
|00000080| 7b 37 2e 30 66 6f 2e 70 | 7d 0d 0d 7b 20 41 20 64 |{7.0fo.p|}..{ A d|
|00000090| 65 6d 6f 20 6f 66 20 37 | 2e 30 20 70 72 6f 63 65 |emo of 7|.0 proce|
|000000a0| 73 73 20 6d 61 6e 61 67 | 65 72 20 63 61 6c 6c 73 |ss manag|er calls|
|000000b0| 20 61 6e 64 20 6f 75 74 | 6c 69 6e 65 20 66 6f 6e | and out|line fon|
|000000c0| 74 73 2e 20 7d 0d 7b 20 | a9 20 31 39 39 31 20 48 |ts. }.{ |. 1991 H|
|000000d0| 61 72 72 79 20 43 68 65 | 73 6c 65 79 2e 20 7d 0d |arry Che|sley. }.|
|000000e0| 0d 75 6e 69 74 20 66 6f | 3b 0d 0d 69 6e 74 65 72 |.unit fo|;..inter|
|000000f0| 66 61 63 65 0d 0d 09 75 | 73 65 73 0d 09 09 51 75 |face...u|ses...Qu|
|00000100| 69 63 6b 64 72 61 77 2c | 20 53 6f 75 6e 64 2c 20 |ickdraw,| Sound, |
|00000110| 46 69 6c 65 73 2c 20 50 | 72 6f 63 65 73 73 65 73 |Files, P|rocesses|
|00000120| 2c 20 50 61 63 6b 61 67 | 65 73 2c 20 46 6f 6e 74 |, Packag|es, Font|
|00000130| 73 2c 0d 09 09 4d 65 6d | 6f 72 79 2c 20 54 6f 6f |s,...Mem|ory, Too|
|00000140| 6c 75 74 69 6c 73 2c 20 | 4f 53 55 74 69 6c 73 2c |lutils, |OSUtils,|
|00000150| 20 47 65 73 74 61 6c 74 | 45 71 75 2c 20 47 72 61 | Gestalt|Equ, Gra|
|00000160| 70 68 69 63 73 4d 6f 64 | 75 6c 65 54 79 70 65 73 |phicsMod|uleTypes|
|00000170| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 44 6f 49 |;...func|tion DoI|
|00000180| 6e 69 74 69 61 6c 69 7a | 65 20 28 76 61 72 20 73 |nitializ|e (var s|
|00000190| 74 6f 72 61 67 65 3a 20 | 48 61 6e 64 6c 65 3b 20 |torage: |Handle; |
|000001a0| 62 6c 61 6e 6b 52 67 6e | 3a 20 72 67 6e 48 61 6e |blankRgn|: rgnHan|
|000001b0| 64 6c 65 3b 20 70 61 72 | 61 6d 73 3a 20 47 4d 50 |dle; par|ams: GMP|
|000001c0| 61 72 61 6d 42 6c 6f 63 | 6b 50 74 72 29 3a 20 4f |aramBloc|kPtr): O|
|000001d0| 53 45 72 72 3b 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |SErr;...|function|
|000001e0| 20 44 6f 42 6c 61 6e 6b | 20 28 73 74 6f 72 61 67 | DoBlank| (storag|
|000001f0| 65 3a 20 48 61 6e 64 6c | 65 3b 20 62 6c 61 6e 6b |e: Handl|e; blank|
|00000200| 52 67 6e 3a 20 72 67 6e | 48 61 6e 64 6c 65 3b 20 |Rgn: rgn|Handle; |
|00000210| 70 61 72 61 6d 73 3a 20 | 47 4d 50 61 72 61 6d 42 |params: |GMParamB|
|00000220| 6c 6f 63 6b 50 74 72 29 | 3a 20 4f 53 45 72 72 3b |lockPtr)|: OSErr;|
|00000230| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 44 6f 44 72 |...funct|ion DoDr|
|00000240| 61 77 46 72 61 6d 65 20 | 28 73 74 6f 72 61 67 65 |awFrame |(storage|
|00000250| 3a 20 48 61 6e 64 6c 65 | 3b 20 62 6c 61 6e 6b 52 |: Handle|; blankR|
|00000260| 67 6e 3a 20 72 67 6e 48 | 61 6e 64 6c 65 3b 20 70 |gn: rgnH|andle; p|
|00000270| 61 72 61 6d 73 3a 20 47 | 4d 50 61 72 61 6d 42 6c |arams: G|MParamBl|
|00000280| 6f 63 6b 50 74 72 29 3a | 20 4f 53 45 72 72 3b 0d |ockPtr):| OSErr;.|
|00000290| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 44 6f 43 6c 6f |..functi|on DoClo|
|000002a0| 73 65 20 28 73 74 6f 72 | 61 67 65 3a 20 48 61 6e |se (stor|age: Han|
|000002b0| 64 6c 65 3b 20 62 6c 61 | 6e 6b 52 67 6e 3a 20 52 |dle; bla|nkRgn: R|
|000002c0| 67 6e 48 61 6e 64 6c 65 | 3b 20 70 61 72 61 6d 73 |gnHandle|; params|
|000002d0| 3a 20 47 4d 50 61 72 61 | 6d 42 6c 6f 63 6b 50 74 |: GMPara|mBlockPt|
|000002e0| 72 29 3a 20 4f 53 45 72 | 72 3b 0d 0d 09 66 75 6e |r): OSEr|r;...fun|
|000002f0| 63 74 69 6f 6e 20 44 6f | 53 65 74 75 70 20 28 62 |ction Do|Setup (b|
|00000300| 6c 61 6e 6b 52 67 6e 3a | 20 72 67 6e 48 61 6e 64 |lankRgn:| rgnHand|
|00000310| 6c 65 3b 20 6d 65 73 73 | 61 67 65 3a 20 69 6e 74 |le; mess|age: int|
|00000320| 65 67 65 72 3b 20 70 61 | 72 61 6d 73 3a 20 47 4d |eger; pa|rams: GM|
|00000330| 50 61 72 61 6d 42 6c 6f | 63 6b 50 74 72 29 3a 20 |ParamBlo|ckPtr): |
|00000340| 4f 53 45 72 72 3b 0d 0d | 69 6d 70 6c 65 6d 65 6e |OSErr;..|implemen|
|00000350| 74 61 74 69 6f 6e 0d 0d | 63 6f 6e 73 74 0d 0d 6b |tation..|const..k|
|00000360| 4c 69 6d 69 74 4f 6e 31 | 30 30 6b 53 7a 20 3d 20 |LimitOn1|00kSz = |
|00000370| 36 30 30 30 30 30 3b 09 | 09 09 09 09 7b 20 4c 69 |600000;.|....{ Li|
|00000380| 6d 69 74 20 6f 6e 20 73 | 69 7a 65 20 6f 66 20 70 |mit on s|ize of p|
|00000390| 72 6f 63 65 73 73 65 73 | 20 64 69 73 70 6c 61 79 |rocesses| display|
|000003a0| 65 64 20 77 69 74 68 20 | 6f 75 74 6c 69 6e 65 2e |ed with |outline.|
|000003b0| 20 7d 0d 0d 6b 4e 6f 50 | 72 6f 63 65 73 73 4d 61 | }..kNoP|rocessMa|
|000003c0| 6e 61 67 65 72 53 74 72 | 69 6e 67 20 3d 20 31 30 |nagerStr|ing = 10|
|000003d0| 30 30 3b 09 09 7b 20 4e | 6f 20 70 72 6f 63 65 73 |00;..{ N|o proces|
|000003e0| 73 20 6d 61 6e 61 67 65 | 72 20 65 72 72 6f 72 20 |s manage|r error |
|000003f0| 27 53 54 52 20 27 2e 20 | 7d 0d 6b 46 6f 6e 74 53 |'STR '. |}.kFontS|
|00000400| 74 72 69 6e 67 20 3d 20 | 31 30 30 31 3b 09 09 09 |tring = |1001;...|
|00000410| 09 09 09 09 09 7b 20 44 | 69 73 70 6c 61 79 20 66 |.....{ D|isplay f|
|00000420| 6f 6e 74 20 6e 61 6d 65 | 20 27 53 54 52 20 27 2e |ont name| 'STR '.|
|00000430| 20 7d 0d 0d 74 79 70 65 | 0d 0d 7b 20 4f 75 72 20 | }..type|..{ Our |
|00000440| 70 65 72 73 69 73 74 65 | 6e 74 20 64 61 74 61 2e |persiste|nt data.|
|00000450| 20 7d 0d 6f 75 72 44 61 | 74 61 20 3d 0d 09 72 65 | }.ourDa|ta =..re|
|00000460| 63 6f 72 64 0d 09 09 66 | 6f 6e 74 4e 75 6d 62 65 |cord...f|ontNumbe|
|00000470| 72 3a 20 69 6e 74 65 67 | 65 72 3b 09 09 7b 20 44 |r: integ|er;..{ D|
|00000480| 69 73 70 6c 61 79 20 66 | 6f 6e 74 20 74 6f 20 75 |isplay f|ont to u|
|00000490| 73 65 2e 20 7d 0d 09 09 | 6c 61 73 74 55 70 64 61 |se. }...|lastUpda|
|000004a0| 74 65 3a 20 6c 6f 6e 67 | 49 6e 74 3b 09 09 09 7b |te: long|Int;...{|
|000004b0| 20 54 69 6d 65 20 6f 66 | 20 6c 61 73 74 20 75 70 | Time of| last up|
|000004c0| 64 61 74 65 2e 20 7d 0d | 09 65 6e 64 3b 0d 0d 6f |date. }.|.end;..o|
|000004d0| 75 72 50 74 72 20 3d 20 | 5e 6f 75 72 44 61 74 61 |urPtr = |^ourData|
|000004e0| 3b 0d 6f 75 72 48 61 6e | 64 6c 65 20 3d 20 5e 6f |;.ourHan|dle = ^o|
|000004f0| 75 72 50 74 72 3b 0d 0d | 66 75 6e 63 74 69 6f 6e |urPtr;..|function|
|00000500| 20 6d 61 78 33 28 61 2c | 62 2c 63 3a 20 69 6e 74 | max3(a,|b,c: int|
|00000510| 65 67 65 72 29 3a 20 69 | 6e 74 65 67 65 72 3b 0d |eger): i|nteger;.|
|00000520| 09 7b 20 54 68 65 20 6d | 61 78 20 66 75 6e 63 74 |.{ The m|ax funct|
|00000530| 69 6f 6e 20 66 6f 72 20 | 74 68 72 65 65 20 69 6e |ion for |three in|
|00000540| 74 65 67 65 72 73 2e 20 | 7d 0d 0d 09 62 65 67 69 |tegers. |}...begi|
|00000550| 6e 0d 09 09 69 66 20 61 | 20 3e 20 62 20 74 68 65 |n...if a| > b the|
|00000560| 6e 0d 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 69 |n....beg|in.....i|
|00000570| 66 20 61 20 3e 20 63 20 | 74 68 65 6e 20 6d 61 78 |f a > c |then max|
|00000580| 33 20 3a 3d 20 61 0d 09 | 09 09 09 65 6c 73 65 20 |3 := a..|...else |
|00000590| 6d 61 78 33 20 3a 3d 20 | 63 3b 0d 09 09 09 65 6e |max3 := |c;....en|
|000005a0| 64 0d 09 09 65 6c 73 65 | 0d 09 09 09 62 65 67 69 |d...else|....begi|
|000005b0| 6e 0d 09 09 09 09 69 66 | 20 62 20 3e 20 63 20 74 |n.....if| b > c t|
|000005c0| 68 65 6e 20 6d 61 78 33 | 20 3a 3d 20 62 0d 09 09 |hen max3| := b...|
|000005d0| 09 09 65 6c 73 65 20 6d | 61 78 33 20 3a 3d 20 63 |..else m|ax3 := c|
|000005e0| 3b 0d 09 09 09 65 6e 64 | 3b 0d 09 65 6e 64 3b 0d |;....end|;..end;.|
|000005f0| 0d 66 75 6e 63 74 69 6f | 6e 20 44 6f 49 6e 69 74 |.functio|n DoInit|
|00000600| 69 61 6c 69 7a 65 20 28 | 76 61 72 20 73 74 6f 72 |ialize (|var stor|
|00000610| 61 67 65 3a 20 48 61 6e | 64 6c 65 3b 20 62 6c 61 |age: Han|dle; bla|
|00000620| 6e 6b 52 67 6e 3a 20 72 | 67 6e 48 61 6e 64 6c 65 |nkRgn: r|gnHandle|
|00000630| 3b 20 70 61 72 61 6d 73 | 3a 20 47 4d 50 61 72 61 |; params|: GMPara|
|00000640| 6d 42 6c 6f 63 6b 50 74 | 72 29 3a 20 4f 53 45 72 |mBlockPt|r): OSEr|
|00000650| 72 3b 0d 09 7b 20 49 6e | 74 69 61 6c 69 7a 65 20 |r;..{ In|tialize |
|00000660| 6f 75 72 20 67 6c 6f 62 | 61 6c 73 2e 20 7d 0d 0d |our glob|als. }..|
|00000670| 09 76 61 72 20 6f 64 3a | 20 6f 75 72 48 61 6e 64 |.var od:| ourHand|
|00000680| 6c 65 3b 0d 09 09 73 3a | 20 53 74 72 32 35 35 3b |le;...s:| Str255;|
|00000690| 0d 09 09 69 3a 20 69 6e | 74 65 67 65 72 3b 0d 09 |...i: in|teger;..|
|000006a0| 09 6f 73 41 74 74 72 3a | 20 6c 6f 6e 67 49 6e 74 |.osAttr:| longInt|
|000006b0| 3b 0d 09 09 73 48 61 6e | 64 3a 20 53 74 72 69 6e |;...sHan|d: Strin|
|000006c0| 67 48 61 6e 64 6c 65 3b | 0d 0d 09 62 65 67 69 6e |gHandle;|...begin|
|000006d0| 0d 09 09 7b 20 44 65 74 | 65 72 6d 69 6e 65 20 74 |...{ Det|ermine t|
|000006e0| 68 61 74 20 74 68 65 20 | 50 72 6f 63 65 73 73 20 |hat the |Process |
|000006f0| 4d 61 6e 61 67 65 72 20 | 69 73 20 61 76 61 69 6c |Manager |is avail|
|00000700| 61 62 6c 65 2e 20 28 4e | 6f 74 65 3a 20 6a 75 73 |able. (N|ote: jus|
|00000710| 74 20 63 61 6c 6c 69 6e | 67 20 47 65 73 74 61 6c |t callin|g Gestal|
|00000720| 74 20 77 69 74 68 6f 75 | 74 20 66 69 72 73 74 20 |t withou|t first |
|00000730| 63 68 65 63 6b 69 6e 67 | 0d 09 09 09 74 68 61 74 |checking|....that|
|00000740| 20 69 74 27 73 20 61 76 | 61 69 6c 61 62 6c 65 20 | it's av|ailable |
|00000750| 6f 6e 6c 79 20 77 6f 72 | 6b 73 20 77 69 74 68 20 |only wor|ks with |
|00000760| 4d 50 57 20 33 2e 32 20 | 61 6e 64 20 6c 61 74 65 |MPW 3.2 |and late|
|00000770| 72 2e 29 20 7d 0d 09 09 | 69 66 20 47 65 73 74 61 |r.) }...|if Gesta|
|00000780| 6c 74 28 67 65 73 74 61 | 6c 74 4f 53 41 74 74 72 |lt(gesta|ltOSAttr|
|00000790| 2c 6f 73 41 74 74 72 29 | 20 3d 20 6e 6f 45 72 72 |,osAttr)| = noErr|
|000007a0| 20 74 68 65 6e 0d 09 09 | 09 69 66 20 42 69 74 54 | then...|.if BitT|
|000007b0| 73 74 28 40 6f 73 41 74 | 74 72 2c 33 31 2d 67 65 |st(@osAt|tr,31-ge|
|000007c0| 73 74 61 6c 74 4c 61 75 | 6e 63 68 43 6f 6e 74 72 |staltLau|nchContr|
|000007d0| 6f 6c 29 20 74 68 65 6e | 0d 09 09 09 09 62 65 67 |ol) then|.....beg|
|000007e0| 69 6e 0d 09 09 09 09 09 | 7b 20 41 6c 6c 6f 63 61 |in......|{ Alloca|
|000007f0| 74 65 20 6f 75 72 20 73 | 74 6f 72 61 67 65 2e 20 |te our s|torage. |
|00000800| 7d 0d 09 09 09 09 09 73 | 74 6f 72 61 67 65 20 3a |}......s|torage :|
|00000810| 3d 20 4e 65 77 48 61 6e | 64 6c 65 28 73 69 7a 65 |= NewHan|dle(size|
|00000820| 6f 66 28 6f 75 72 44 61 | 74 61 29 29 3b 0d 09 09 |of(ourDa|ta));...|
|00000830| 09 09 09 69 66 20 4d 65 | 6d 45 72 72 6f 72 20 3c |...if Me|mError <|
|00000840| 3e 20 6e 6f 45 72 72 20 | 74 68 65 6e 0d 09 09 09 |> noErr |then....|
|00000850| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 09 |...begin|........|
|00000860| 44 6f 49 6e 69 74 69 61 | 6c 69 7a 65 20 3a 3d 20 |DoInitia|lize := |
|00000870| 4d 65 6d 45 72 72 6f 72 | 3b 0d 09 09 09 09 09 09 |MemError|;.......|
|00000880| 09 65 78 69 74 28 44 6f | 49 6e 69 74 69 61 6c 69 |.exit(Do|Initiali|
|00000890| 7a 65 29 3b 0d 09 09 09 | 09 09 09 65 6e 64 3b 0d |ze);....|...end;.|
|000008a0| 09 09 09 09 09 6f 64 20 | 3a 3d 20 6f 75 72 48 61 |.....od |:= ourHa|
|000008b0| 6e 64 6c 65 28 73 74 6f | 72 61 67 65 29 3b 0d 09 |ndle(sto|rage);..|
|000008c0| 09 09 0d 09 09 09 09 09 | 7b 20 47 65 74 20 74 68 |........|{ Get th|
|000008d0| 65 20 66 6f 6e 74 20 74 | 6f 20 75 73 65 20 66 6f |e font t|o use fo|
|000008e0| 72 20 64 69 73 70 6c 61 | 79 73 2e 20 7d 0d 09 09 |r displa|ys. }...|
|000008f0| 09 09 09 73 20 3a 3d 20 | 47 65 74 53 74 72 69 6e |...s := |GetStrin|
|00000900| 67 28 6b 46 6f 6e 74 53 | 74 72 69 6e 67 29 5e 5e |g(kFontS|tring)^^|
|00000910| 3b 0d 09 09 09 09 09 47 | 65 74 46 4e 75 6d 28 73 |;......G|etFNum(s|
|00000920| 2c 69 29 3b 0d 09 09 09 | 09 09 6f 64 5e 5e 2e 66 |,i);....|..od^^.f|
|00000930| 6f 6e 74 4e 75 6d 62 65 | 72 20 3a 3d 20 69 3b 0d |ontNumbe|r := i;.|
|00000940| 0d 09 09 09 09 09 7b 20 | 46 6f 72 63 65 20 69 6d |......{ |Force im|
|00000950| 6d 65 64 69 61 74 65 20 | 75 70 64 61 74 65 2e 20 |mediate |update. |
|00000960| 7d 0d 09 09 09 09 09 6f | 64 5e 5e 2e 6c 61 73 74 |}......o|d^^.last|
|00000970| 55 70 64 61 74 65 20 3a | 3d 20 30 3b 0d 0d 09 09 |Update :|= 0;....|
|00000980| 09 09 09 7b 20 47 65 74 | 20 72 65 61 6c 6c 79 20 |...{ Get| really |
|00000990| 72 61 6e 64 6f 6d 20 6e | 75 6d 62 65 72 73 2e 20 |random n|umbers. |
|000009a0| 7d 0d 09 09 09 09 09 70 | 61 72 61 6d 73 5e 2e 71 |}......p|arams^.q|
|000009b0| 64 47 6c 6f 62 61 6c 73 | 43 6f 70 79 5e 2e 71 64 |dGlobals|Copy^.qd|
|000009c0| 52 61 6e 64 53 65 65 64 | 20 3a 3d 20 54 69 63 6b |RandSeed| := Tick|
|000009d0| 43 6f 75 6e 74 3b 0d 0d | 09 09 09 09 09 44 6f 49 |Count;..|.....DoI|
|000009e0| 6e 69 74 69 61 6c 69 7a | 65 20 3a 3d 20 6e 6f 45 |nitializ|e := noE|
|000009f0| 72 72 3b 0d 09 09 09 09 | 09 65 78 69 74 28 44 6f |rr;.....|.exit(Do|
|00000a00| 49 6e 69 74 69 61 6c 69 | 7a 65 29 3b 0d 09 09 09 |Initiali|ze);....|
|00000a10| 09 65 6e 64 3b 0d 0d 09 | 09 73 48 61 6e 64 20 3a |.end;...|.sHand :|
|00000a20| 3d 20 47 65 74 53 74 72 | 69 6e 67 28 6b 4e 6f 50 |= GetStr|ing(kNoP|
|00000a30| 72 6f 63 65 73 73 4d 61 | 6e 61 67 65 72 53 74 72 |rocessMa|nagerStr|
|00000a40| 69 6e 67 29 3b 0d 09 09 | 69 66 20 73 48 61 6e 64 |ing);...|if sHand|
|00000a50| 20 3c 3e 20 6e 69 6c 20 | 74 68 65 6e 20 70 61 72 | <> nil |then par|
|00000a60| 61 6d 73 5e 2e 65 72 72 | 6f 72 4d 65 73 73 61 67 |ams^.err|orMessag|
|00000a70| 65 5e 20 3a 3d 20 73 48 | 61 6e 64 5e 5e 0d 09 09 |e^ := sH|and^^...|
|00000a80| 65 6c 73 65 20 70 61 72 | 61 6d 73 5e 2e 65 72 72 |else par|ams^.err|
|00000a90| 6f 72 4d 65 73 73 61 67 | 65 5e 20 3a 3d 20 27 54 |orMessag|e^ := 'T|
|00000aa0| 68 69 73 20 6d 6f 64 75 | 6c 65 20 72 65 71 75 69 |his modu|le requi|
|00000ab0| 72 65 73 20 74 68 65 20 | 50 72 6f 63 65 73 73 20 |res the |Process |
|00000ac0| 4d 61 6e 61 67 65 72 20 | 28 53 79 73 74 65 6d 20 |Manager |(System |
|00000ad0| 37 2e 30 20 61 6e 64 20 | 6c 61 74 65 72 29 20 74 |7.0 and |later) t|
|00000ae0| 6f 20 72 75 6e 2e 27 3b | 0d 09 09 44 6f 49 6e 69 |o run.';|...DoIni|
|00000af0| 74 69 61 6c 69 7a 65 20 | 3a 3d 20 4d 6f 64 75 6c |tialize |:= Modul|
|00000b00| 65 45 72 72 6f 72 3b 0d | 09 65 6e 64 3b 0d 0d 09 |eError;.|.end;...|
|00000b10| 66 75 6e 63 74 69 6f 6e | 20 44 6f 42 6c 61 6e 6b |function| DoBlank|
|00000b20| 20 28 73 74 6f 72 61 67 | 65 3a 20 48 61 6e 64 6c | (storag|e: Handl|
|00000b30| 65 3b 20 62 6c 61 6e 6b | 52 67 6e 3a 20 72 67 6e |e; blank|Rgn: rgn|
|00000b40| 48 61 6e 64 6c 65 3b 20 | 70 61 72 61 6d 73 3a 20 |Handle; |params: |
|00000b50| 47 4d 50 61 72 61 6d 42 | 6c 6f 63 6b 50 74 72 29 |GMParamB|lockPtr)|
|00000b60| 3a 20 4f 53 45 72 72 3b | 0d 09 09 7b 20 42 6c 61 |: OSErr;|...{ Bla|
|00000b70| 6e 6b 20 74 68 65 20 73 | 63 72 65 65 6e 20 74 68 |nk the s|creen th|
|00000b80| 65 20 66 69 72 73 74 20 | 74 69 6d 65 2e 20 7d 0d |e first |time. }.|
|00000b90| 0d 09 62 65 67 69 6e 0d | 09 09 7b 20 44 69 6d 20 |..begin.|..{ Dim |
|00000ba0| 61 63 63 6f 72 64 69 6e | 67 20 74 6f 20 74 68 65 |accordin|g to the|
|00000bb0| 20 75 73 65 72 27 73 20 | 77 69 73 68 65 73 2e 20 | user's |wishes. |
|00000bc0| 7d 0d 09 09 70 61 72 61 | 6d 73 5e 2e 62 72 69 67 |}...para|ms^.brig|
|00000bd0| 68 74 6e 65 73 73 20 3a | 3d 20 28 70 61 72 61 6d |htness :|= (param|
|00000be0| 73 5e 2e 63 6f 6e 74 72 | 6f 6c 56 61 6c 75 65 73 |s^.contr|olValues|
|00000bf0| 5b 30 5d 20 2a 20 32 35 | 35 29 20 64 69 76 20 31 |[0] * 25|5) div 1|
|00000c00| 30 30 3b 0d 09 09 7b 20 | 42 6c 61 63 6b 20 69 74 |00;...{ |Black it|
|00000c10| 20 6f 75 74 2e 20 7d 0d | 09 09 46 69 6c 6c 52 67 | out. }.|..FillRg|
|00000c20| 6e 28 62 6c 61 6e 6b 52 | 67 6e 2c 20 70 61 72 61 |n(blankR|gn, para|
|00000c30| 6d 73 5e 2e 71 64 47 6c | 6f 62 61 6c 73 43 6f 70 |ms^.qdGl|obalsCop|
|00000c40| 79 5e 2e 71 64 42 6c 61 | 63 6b 29 3b 0d 09 09 44 |y^.qdBla|ck);...D|
|00000c50| 6f 42 6c 61 6e 6b 20 3a | 3d 20 6e 6f 45 72 72 3b |oBlank :|= noErr;|
|00000c60| 0d 09 65 6e 64 3b 0d 0d | 0d 66 75 6e 63 74 69 6f |..end;..|.functio|
|00000c70| 6e 20 44 6f 44 72 61 77 | 46 72 61 6d 65 20 28 73 |n DoDraw|Frame (s|
|00000c80| 74 6f 72 61 67 65 3a 20 | 48 61 6e 64 6c 65 3b 20 |torage: |Handle; |
|00000c90| 62 6c 61 6e 6b 52 67 6e | 3a 20 72 67 6e 48 61 6e |blankRgn|: rgnHan|
|00000ca0| 64 6c 65 3b 20 70 61 72 | 61 6d 73 3a 20 47 4d 50 |dle; par|ams: GMP|
|00000cb0| 61 72 61 6d 42 6c 6f 63 | 6b 50 74 72 29 3a 20 4f |aramBloc|kPtr): O|
|00000cc0| 53 45 72 72 3b 0d 09 7b | 20 47 6f 20 66 6f 72 20 |SErr;..{| Go for |
|00000cd0| 69 74 2e 20 7d 0d 0d 09 | 76 61 72 20 6f 64 3a 20 |it. }...|var od: |
|00000ce0| 6f 75 72 48 61 6e 64 6c | 65 3b 09 09 09 09 09 7b |ourHandl|e;.....{|
|00000cf0| 20 48 61 6e 64 6c 65 20 | 74 6f 20 6f 75 72 20 64 | Handle |to our d|
|00000d00| 61 74 61 20 28 63 6f 65 | 72 63 65 64 20 66 72 6f |ata (coe|rced fro|
|00000d10| 6d 20 73 74 6f 72 61 67 | 65 29 2e 20 7d 0d 09 09 |m storag|e). }...|
|00000d20| 6d 6f 6e 69 74 6f 72 3a | 20 69 6e 74 65 67 65 72 |monitor:| integer|
|00000d30| 3b 09 09 09 09 09 7b 20 | 4d 6f 6e 69 74 6f 72 20 |;.....{ |Monitor |
|00000d40| 77 65 27 72 65 20 64 69 | 73 70 6c 61 79 69 6e 67 |we're di|splaying|
|00000d50| 20 6f 6e 2e 20 7d 0d 09 | 09 72 3a 20 52 65 63 74 | on. }..|.r: Rect|
|00000d60| 3b 09 09 09 09 09 09 09 | 09 7b 20 52 65 63 74 61 |;.......|.{ Recta|
|00000d70| 6e 67 6c 65 20 6f 66 20 | 74 68 65 20 63 75 72 72 |ngle of |the curr|
|00000d80| 65 6e 74 20 6d 6f 6e 69 | 74 6f 72 2e 20 7d 0d 09 |ent moni|tor. }..|
|00000d90| 09 64 65 73 63 52 65 63 | 74 3a 20 52 65 63 74 3b |.descRec|t: Rect;|
|00000da0| 09 09 09 09 09 7b 20 52 | 65 63 74 61 6e 67 6c 65 |.....{ R|ectangle|
|00000db0| 20 66 6f 72 20 63 75 72 | 72 65 6e 74 20 70 72 6f | for cur|rent pro|
|00000dc0| 63 65 73 73 20 64 65 73 | 63 72 69 70 74 69 6f 6e |cess des|cription|
|00000dd0| 2e 20 7d 0d 09 09 69 3a | 20 69 6e 74 65 67 65 72 |. }...i:| integer|
|00000de0| 3b 0d 09 09 62 3a 20 62 | 6f 6f 6c 65 61 6e 3b 0d |;...b: b|oolean;.|
|00000df0| 09 09 6d 61 78 50 72 6f | 63 53 7a 3a 20 6c 6f 6e |..maxPro|cSz: lon|
|00000e00| 67 49 6e 74 3b 09 09 09 | 09 7b 20 53 69 7a 65 20 |gInt;...|.{ Size |
|00000e10| 6f 66 20 6c 61 72 67 65 | 73 74 20 70 72 6f 63 65 |of large|st proce|
|00000e20| 73 73 2e 20 7d 0d 09 09 | 6d 61 78 31 30 30 6b 50 |ss. }...|max100kP|
|00000e30| 72 6f 63 53 7a 3a 20 6c | 6f 6e 67 49 6e 74 3b 09 |rocSz: l|ongInt;.|
|00000e40| 09 7b 20 53 69 7a 65 20 | 6f 66 20 6c 61 72 67 65 |.{ Size |of large|
|00000e50| 73 74 20 70 72 6f 63 65 | 73 73 20 75 6e 64 65 72 |st proce|ss under|
|00000e60| 20 6b 4c 69 6d 69 74 4f | 6e 31 30 30 6b 53 7a 2e | kLimitO|n100kSz.|
|00000e70| 20 7d 0d 09 09 66 6f 6e | 74 53 69 7a 65 3a 20 69 | }...fon|tSize: i|
|00000e80| 6e 74 65 67 65 72 3b 09 | 09 09 09 09 7b 20 50 72 |nteger;.|....{ Pr|
|00000e90| 6f 63 65 73 73 20 6e 61 | 6d 65 20 66 6f 6e 74 20 |ocess na|me font |
|00000ea0| 73 69 7a 65 2e 20 7d 0d | 09 09 73 75 62 46 6f 6e |size. }.|..subFon|
|00000eb0| 74 53 69 7a 65 3a 20 69 | 6e 74 65 67 65 72 3b 09 |tSize: i|nteger;.|
|00000ec0| 09 09 7b 20 50 72 6f 63 | 65 73 73 20 69 6e 66 6f |..{ Proc|ess info|
|00000ed0| 20 66 6f 6e 74 20 73 69 | 7a 65 2e 20 7d 0d 09 09 | font si|ze. }...|
|00000ee0| 66 6f 6e 74 46 61 63 65 | 3a 20 53 74 79 6c 65 3b |fontFace|: Style;|
|00000ef0| 09 09 09 09 09 7b 20 46 | 6f 6e 74 20 73 74 79 6c |.....{ F|ont styl|
|00000f00| 65 2e 20 7d 0d 09 09 70 | 73 6e 3a 20 50 72 6f 63 |e. }...p|sn: Proc|
|00000f10| 65 73 73 53 65 72 69 61 | 6c 4e 75 6d 62 65 72 3b |essSeria|lNumber;|
|00000f20| 09 7b 20 50 72 6f 63 65 | 73 73 20 62 65 69 6e 67 |.{ Proce|ss being|
|00000f30| 20 70 72 6f 63 65 73 73 | 65 64 2e 20 7d 0d 09 09 | process|ed. }...|
|00000f40| 66 72 6f 6e 74 50 53 4e | 3a 20 50 72 6f 63 65 73 |frontPSN|: Proces|
|00000f50| 73 53 65 72 69 61 6c 4e | 75 6d 62 65 72 3b 09 7b |sSerialN|umber;.{|
|00000f60| 20 46 6f 72 65 67 72 6f | 75 6e 64 20 70 72 6f 63 | Foregro|und proc|
|00000f70| 65 73 73 2e 20 7d 0d 09 | 09 70 49 6e 66 6f 3a 20 |ess. }..|.pInfo: |
|00000f80| 50 72 6f 63 65 73 73 49 | 6e 66 6f 52 65 63 3b 09 |ProcessI|nfoRec;.|
|00000f90| 09 09 7b 20 49 6e 66 6f | 20 6f 6e 20 63 75 72 72 |..{ Info| on curr|
|00000fa0| 65 6e 74 20 70 72 6f 63 | 65 73 73 2e 20 7d 0d 09 |ent proc|ess. }..|
|00000fb0| 09 66 53 70 65 63 3a 20 | 46 53 53 70 65 63 3b 09 |.fSpec: |FSSpec;.|
|00000fc0| 09 09 09 09 09 7b 20 46 | 69 6c 65 20 73 70 65 63 |.....{ F|ile spec|
|00000fd0| 20 6f 6e 20 63 75 72 72 | 65 6e 74 20 70 72 6f 63 | on curr|ent proc|
|00000fe0| 65 73 73 2e 20 7d 0d 09 | 09 6c 61 75 6e 63 68 54 |ess. }..|.launchT|
|00000ff0| 69 6d 65 3a 20 6c 6f 6e | 67 49 6e 74 3b 09 09 09 |ime: lon|gInt;...|
|00001000| 09 7b 20 4c 61 75 6e 63 | 68 20 74 69 6d 65 20 6f |.{ Launc|h time o|
|00001010| 66 20 63 75 72 72 65 6e | 74 20 70 72 6f 63 65 73 |f curren|t proces|
|00001020| 73 2e 20 7d 0d 09 09 73 | 7a 53 74 72 3a 20 53 74 |s. }...s|zStr: St|
|00001030| 72 32 35 35 3b 09 09 09 | 09 09 09 7b 20 50 72 6f |r255;...|...{ Pro|
|00001040| 63 65 73 73 20 73 69 7a | 65 20 64 65 73 63 72 69 |cess siz|e descri|
|00001050| 70 74 69 6f 6e 2e 20 7d | 0d 09 09 63 70 75 48 72 |ption. }|...cpuHr|
|00001060| 53 74 72 2c 20 63 70 75 | 4d 69 6e 53 74 72 2c 20 |Str, cpu|MinStr, |
|00001070| 63 70 75 53 65 63 53 74 | 72 2c 20 63 70 75 53 74 |cpuSecSt|r, cpuSt|
|00001080| 72 3a 20 53 74 72 32 35 | 35 3b 09 7b 20 43 50 55 |r: Str25|5;.{ CPU|
|00001090| 20 74 69 6d 65 20 73 74 | 72 69 6e 67 73 2e 20 7d | time st|rings. }|
|000010a0| 0d 09 09 6c 61 75 6e 63 | 68 54 69 6d 65 53 74 72 |...launc|hTimeStr|
|000010b0| 2c 20 6c 61 75 6e 63 68 | 44 61 74 65 53 74 72 3a |, launch|DateStr:|
|000010c0| 20 53 74 72 32 35 35 3b | 09 7b 20 4c 61 75 6e 63 | Str255;|.{ Launc|
|000010d0| 68 20 64 61 74 65 2f 74 | 69 6d 65 20 73 74 72 69 |h date/t|ime stri|
|000010e0| 6e 67 73 2e 20 7d 0d 09 | 09 73 31 2c 20 73 32 2c |ngs. }..|.s1, s2,|
|000010f0| 20 73 33 3a 20 53 74 72 | 32 35 35 3b 09 09 09 09 | s3: Str|255;....|
|00001100| 7b 20 4c 69 6e 65 20 31 | 2c 20 32 2c 20 61 6e 64 |{ Line 1|, 2, and|
|00001110| 20 33 20 6f 66 20 74 68 | 65 20 64 65 73 63 72 69 | 3 of th|e descri|
|00001120| 70 74 69 6f 6e 2e 20 7d | 0d 09 09 77 2c 20 68 2c |ption. }|...w, h,|
|00001130| 20 76 3a 20 69 6e 74 65 | 67 65 72 3b 09 09 09 09 | v: inte|ger;....|
|00001140| 09 7b 20 57 69 64 74 68 | 20 61 6e 64 20 6c 6f 63 |.{ Width| and loc|
|00001150| 61 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 64 65 73 |ation of| the des|
|00001160| 63 72 69 70 74 69 6f 6e | 2e 20 7d 0d 09 09 6d 61 |cription|. }...ma|
|00001170| 69 6e 46 6f 6e 74 49 6e | 66 6f 3a 20 46 6f 6e 74 |inFontIn|fo: Font|
|00001180| 49 6e 66 6f 3b 09 09 09 | 7b 20 46 6f 6e 74 20 69 |Info;...|{ Font i|
|00001190| 6e 66 6f 20 66 6f 72 20 | 70 72 6f 63 65 73 73 20 |nfo for |process |
|000011a0| 6e 61 6d 65 20 6c 69 6e | 65 2e 20 7d 0d 09 09 73 |name lin|e. }...s|
|000011b0| 75 62 46 6f 6e 74 49 6e | 66 6f 3a 20 46 6f 6e 74 |ubFontIn|fo: Font|
|000011c0| 49 6e 66 6f 3b 09 09 09 | 7b 20 46 6f 6e 74 20 69 |Info;...|{ Font i|
|000011d0| 6e 66 6f 20 66 6f 72 20 | 70 72 6f 63 65 73 73 20 |nfo for |process |
|000011e0| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 6c 69 6e 65 |descript|ion line|
|000011f0| 73 2e 20 7d 0d 09 09 69 | 67 6e 6f 72 65 3a 20 4f |s. }...i|gnore: O|
|00001200| 53 45 72 72 3b 0d 0d 09 | 62 65 67 69 6e 0d 09 09 |SErr;...|begin...|
|00001210| 7b 20 44 69 6d 20 61 73 | 20 72 65 71 75 65 73 74 |{ Dim as| request|
|00001220| 65 64 2e 20 7d 0d 09 09 | 70 61 72 61 6d 73 5e 2e |ed. }...|params^.|
|00001230| 62 72 69 67 68 74 6e 65 | 73 73 20 3a 3d 20 28 70 |brightne|ss := (p|
|00001240| 61 72 61 6d 73 5e 2e 63 | 6f 6e 74 72 6f 6c 56 61 |arams^.c|ontrolVa|
|00001250| 6c 75 65 73 5b 30 5d 20 | 2a 20 32 35 35 29 20 64 |lues[0] |* 255) d|
|00001260| 69 76 20 31 30 30 3b 0d | 0d 09 09 7b 20 47 65 74 |iv 100;.|...{ Get|
|00001270| 20 6f 75 72 20 64 61 74 | 61 2e 20 7d 0d 09 09 6f | our dat|a. }...o|
|00001280| 64 20 3a 3d 20 4f 75 72 | 48 61 6e 64 6c 65 28 73 |d := Our|Handle(s|
|00001290| 74 6f 72 61 67 65 29 3b | 0d 09 09 69 66 20 6f 64 |torage);|...if od|
|000012a0| 20 3d 20 6e 69 6c 20 74 | 68 65 6e 20 65 78 69 74 | = nil t|hen exit|
|000012b0| 28 44 6f 44 72 61 77 46 | 72 61 6d 65 29 3b 0d 0d |(DoDrawF|rame);..|
|000012c0| 09 09 7b 20 43 68 65 63 | 6b 20 69 66 20 69 74 27 |..{ Chec|k if it'|
|000012d0| 73 20 74 69 6d 65 20 74 | 6f 20 75 70 64 61 74 65 |s time t|o update|
|000012e0| 20 64 69 73 70 6c 61 79 | 20 79 65 74 2e 20 7d 0d | display| yet. }.|
|000012f0| 09 09 69 66 20 54 69 63 | 6b 43 6f 75 6e 74 20 3c |..if Tic|kCount <|
|00001300| 20 28 6f 64 5e 5e 2e 6c | 61 73 74 55 70 64 61 74 | (od^^.l|astUpdat|
|00001310| 65 20 2b 20 70 61 72 61 | 6d 73 5e 2e 63 6f 6e 74 |e + para|ms^.cont|
|00001320| 72 6f 6c 56 61 6c 75 65 | 73 5b 31 5d 20 2a 20 36 |rolValue|s[1] * 6|
|00001330| 30 29 20 74 68 65 6e 20 | 65 78 69 74 28 44 6f 44 |0) then |exit(DoD|
|00001340| 72 61 77 46 72 61 6d 65 | 29 3b 0d 09 09 6f 64 5e |rawFrame|);...od^|
|00001350| 5e 2e 6c 61 73 74 55 70 | 64 61 74 65 20 3a 3d 20 |^.lastUp|date := |
|00001360| 54 69 63 6b 43 6f 75 6e | 74 3b 0d 0d 09 09 7b 20 |TickCoun|t;....{ |
|00001370| 53 65 74 20 75 70 20 70 | 72 6f 63 65 73 73 20 69 |Set up p|rocess i|
|00001380| 6e 66 6f 20 73 74 72 75 | 63 74 75 72 65 2e 20 7d |nfo stru|cture. }|
|00001390| 0d 09 09 70 49 6e 66 6f | 2e 70 72 6f 63 65 73 73 |...pInfo|.process|
|000013a0| 49 6e 66 6f 4c 65 6e 67 | 74 68 20 3a 3d 20 73 69 |InfoLeng|th := si|
|000013b0| 7a 65 6f 66 28 70 49 6e | 66 6f 29 3b 0d 09 09 70 |zeof(pIn|fo);...p|
|000013c0| 49 6e 66 6f 2e 70 72 6f | 63 65 73 73 4e 61 6d 65 |Info.pro|cessName|
|000013d0| 20 3a 3d 20 40 73 31 3b | 0d 09 09 70 49 6e 66 6f | := @s1;|...pInfo|
|000013e0| 2e 70 72 6f 63 65 73 73 | 41 70 70 53 70 65 63 20 |.process|AppSpec |
|000013f0| 3a 3d 20 40 66 53 70 65 | 63 3b 0d 0d 09 09 7b 20 |:= @fSpe|c;....{ |
|00001400| 47 65 74 20 74 68 65 20 | 6c 61 72 67 65 73 74 20 |Get the |largest |
|00001410| 73 69 7a 65 64 20 70 72 | 6f 63 65 73 73 65 73 2e |sized pr|ocesses.|
|00001420| 20 7d 0d 09 09 6d 61 78 | 50 72 6f 63 53 7a 20 3a | }...max|ProcSz :|
|00001430| 3d 20 30 3b 0d 09 09 6d | 61 78 31 30 30 6b 50 72 |= 0;...m|ax100kPr|
|00001440| 6f 63 53 7a 20 3a 3d 20 | 30 3b 0d 09 09 70 73 6e |ocSz := |0;...psn|
|00001450| 2e 68 69 67 68 4c 6f 6e | 67 4f 66 50 53 4e 20 3a |.highLon|gOfPSN :|
|00001460| 3d 20 30 3b 0d 09 09 70 | 73 6e 2e 6c 6f 77 4c 6f |= 0;...p|sn.lowLo|
|00001470| 6e 67 4f 66 50 53 4e 20 | 3a 3d 20 6b 4e 6f 50 72 |ngOfPSN |:= kNoPr|
|00001480| 6f 63 65 73 73 3b 0d 09 | 09 77 68 69 6c 65 20 47 |ocess;..|.while G|
|00001490| 65 74 4e 65 78 74 50 72 | 6f 63 65 73 73 28 70 73 |etNextPr|ocess(ps|
|000014a0| 6e 29 20 3d 20 6e 6f 45 | 72 72 20 64 6f 0d 09 09 |n) = noE|rr do...|
|000014b0| 09 69 66 20 47 65 74 50 | 72 6f 63 65 73 73 49 6e |.if GetP|rocessIn|
|000014c0| 66 6f 72 6d 61 74 69 6f | 6e 28 70 73 6e 2c 70 49 |formatio|n(psn,pI|
|000014d0| 6e 66 6f 29 20 3d 20 6e | 6f 45 72 72 20 74 68 65 |nfo) = n|oErr the|
|000014e0| 6e 0d 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |n.....be|gin.....|
|000014f0| 09 69 66 20 70 49 6e 66 | 6f 2e 70 72 6f 63 65 73 |.if pInf|o.proces|
|00001500| 73 53 69 7a 65 20 3e 20 | 6d 61 78 50 72 6f 63 53 |sSize > |maxProcS|
|00001510| 7a 20 74 68 65 6e 20 6d | 61 78 50 72 6f 63 53 7a |z then m|axProcSz|
|00001520| 20 3a 3d 20 70 49 6e 66 | 6f 2e 70 72 6f 63 65 73 | := pInf|o.proces|
|00001530| 73 53 69 7a 65 3b 0d 09 | 09 09 09 09 69 66 20 28 |sSize;..|....if (|
|00001540| 70 49 6e 66 6f 2e 70 72 | 6f 63 65 73 73 53 69 7a |pInfo.pr|ocessSiz|
|00001550| 65 20 3c 20 6b 4c 69 6d | 69 74 4f 6e 31 30 30 6b |e < kLim|itOn100k|
|00001560| 53 7a 29 20 61 6e 64 20 | 28 70 49 6e 66 6f 2e 70 |Sz) and |(pInfo.p|
|00001570| 72 6f 63 65 73 73 53 69 | 7a 65 20 3e 20 6d 61 78 |rocessSi|ze > max|
|00001580| 31 30 30 6b 50 72 6f 63 | 53 7a 29 20 74 68 65 6e |100kProc|Sz) then|
|00001590| 0d 09 09 09 09 09 09 6d | 61 78 31 30 30 6b 50 72 |.......m|ax100kPr|
|000015a0| 6f 63 53 7a 20 3a 3d 20 | 70 49 6e 66 6f 2e 70 72 |ocSz := |pInfo.pr|
|000015b0| 6f 63 65 73 73 53 69 7a | 65 3b 0d 09 09 09 09 65 |ocessSiz|e;.....e|
|000015c0| 6e 64 3b 0d 0d 09 09 7b | 20 47 65 74 20 66 6f 72 |nd;....{| Get for|
|000015d0| 65 67 72 6f 75 6e 64 20 | 70 72 6f 63 65 73 73 2e |eground |process.|
|000015e0| 20 7d 0d 09 09 69 67 6e | 6f 72 65 20 3a 3d 20 47 | }...ign|ore := G|
|000015f0| 65 74 46 72 6f 6e 74 50 | 72 6f 63 65 73 73 28 66 |etFrontP|rocess(f|
|00001600| 72 6f 6e 74 50 53 4e 29 | 3b 0d 0d 09 09 7b 20 53 |rontPSN)|;....{ S|
|00001610| 65 74 20 75 70 20 70 65 | 6e 20 66 6f 72 20 64 72 |et up pe|n for dr|
|00001620| 61 77 69 6e 67 2e 20 7d | 0d 09 09 50 65 6e 4e 6f |awing. }|...PenNo|
|00001630| 72 6d 61 6c 3b 0d 09 09 | 62 61 63 6b 43 6f 6c 6f |rmal;...|backColo|
|00001640| 72 28 77 68 69 74 65 43 | 6f 6c 6f 72 29 3b 0d 09 |r(whiteC|olor);..|
|00001650| 09 66 6f 72 65 43 6f 6c | 6f 72 28 62 6c 61 63 6b |.foreCol|or(black|
|00001660| 43 6f 6c 6f 72 29 3b 0d | 09 09 7b 20 42 6c 61 6e |Color);.|..{ Blan|
|00001670| 6b 20 73 63 72 65 65 6e | 2e 20 7d 0d 09 09 46 69 |k screen|. }...Fi|
|00001680| 6c 6c 52 67 6e 28 62 6c | 61 6e 6b 52 67 6e 2c 20 |llRgn(bl|ankRgn, |
|00001690| 70 61 72 61 6d 73 5e 2e | 71 64 47 6c 6f 62 61 6c |params^.|qdGlobal|
|000016a0| 73 43 6f 70 79 5e 2e 71 | 64 42 6c 61 63 6b 29 3b |sCopy^.q|dBlack);|
|000016b0| 0d 09 09 7b 20 44 72 61 | 77 20 77 68 69 74 65 2f |...{ Dra|w white/|
|000016c0| 62 6c 61 63 6b 20 6f 72 | 20 62 6c 61 63 6b 2f 77 |black or| black/w|
|000016d0| 68 69 74 65 2e 20 7d 0d | 09 09 69 66 20 70 61 72 |hite. }.|..if par|
|000016e0| 61 6d 73 5e 2e 63 6f 6e | 74 72 6f 6c 56 61 6c 75 |ams^.con|trolValu|
|000016f0| 65 73 5b 32 5d 20 3d 20 | 30 20 74 68 65 6e 0d 09 |es[2] = |0 then..|
|00001700| 09 09 62 65 67 69 6e 0d | 09 09 09 09 62 61 63 6b |..begin.|....back|
|00001710| 43 6f 6c 6f 72 28 62 6c | 61 63 6b 43 6f 6c 6f 72 |Color(bl|ackColor|
|00001720| 29 3b 0d 09 09 09 09 66 | 6f 72 65 43 6f 6c 6f 72 |);.....f|oreColor|
|00001730| 28 77 68 69 74 65 43 6f | 6c 6f 72 29 3b 0d 09 09 |(whiteCo|lor);...|
|00001740| 09 65 6e 64 3b 0d 09 09 | 7b 20 53 65 6c 65 63 74 |.end;...|{ Select|
|00001750| 20 74 68 65 20 66 6f 6e | 74 2e 20 7d 0d 09 09 54 | the fon|t. }...T|
|00001760| 65 78 74 46 6f 6e 74 28 | 6f 64 5e 5e 2e 66 6f 6e |extFont(|od^^.fon|
|00001770| 74 4e 75 6d 62 65 72 29 | 3b 0d 0d 09 09 7b 20 46 |tNumber)|;....{ F|
|00001780| 6f 72 20 65 61 63 68 20 | 6d 6f 6e 69 74 6f 72 2e |or each |monitor.|
|00001790| 2e 2e 20 7d 0d 09 09 66 | 6f 72 20 6d 6f 6e 69 74 |.. }...f|or monit|
|000017a0| 6f 72 20 3a 3d 20 30 20 | 74 6f 20 70 61 72 61 6d |or := 0 |to param|
|000017b0| 73 5e 2e 6d 6f 6e 69 74 | 6f 72 73 5e 2e 6d 6f 6e |s^.monit|ors^.mon|
|000017c0| 69 74 6f 72 43 6f 75 6e | 74 2d 31 20 64 6f 0d 09 |itorCoun|t-1 do..|
|000017d0| 09 09 62 65 67 69 6e 0d | 09 09 09 09 72 20 3a 3d |..begin.|....r :=|
|000017e0| 20 70 61 72 61 6d 73 5e | 2e 6d 6f 6e 69 74 6f 72 | params^|.monitor|
|000017f0| 73 5e 2e 6d 6f 6e 69 74 | 6f 72 4c 69 73 74 5b 6d |s^.monit|orList[m|
|00001800| 6f 6e 69 74 6f 72 5d 2e | 62 6f 75 6e 64 73 3b 0d |onitor].|bounds;.|
|00001810| 0d 09 09 09 09 7b 20 46 | 6f 72 20 65 61 63 68 20 |.....{ F|or each |
|00001820| 70 72 6f 63 65 73 73 2e | 2e 2e 20 7d 0d 09 09 09 |process.|.. }....|
|00001830| 09 70 73 6e 2e 68 69 67 | 68 4c 6f 6e 67 4f 66 50 |.psn.hig|hLongOfP|
|00001840| 53 4e 20 3a 3d 20 30 3b | 0d 09 09 09 09 70 73 6e |SN := 0;|.....psn|
|00001850| 2e 6c 6f 77 4c 6f 6e 67 | 4f 66 50 53 4e 20 3a 3d |.lowLong|OfPSN :=|
|00001860| 20 6b 4e 6f 50 72 6f 63 | 65 73 73 3b 0d 09 09 09 | kNoProc|ess;....|
|00001870| 09 77 68 69 6c 65 20 47 | 65 74 4e 65 78 74 50 72 |.while G|etNextPr|
|00001880| 6f 63 65 73 73 28 70 73 | 6e 29 20 3d 20 6e 6f 45 |ocess(ps|n) = noE|
|00001890| 72 72 20 64 6f 0d 09 09 | 09 09 09 62 65 67 69 6e |rr do...|...begin|
|000018a0| 0d 09 09 09 09 09 09 7b | 20 54 72 79 20 74 6f 20 |.......{| Try to |
|000018b0| 67 65 74 20 74 68 65 20 | 70 72 6f 63 65 73 73 27 |get the |process'|
|000018c0| 73 20 69 6e 66 6f 2e 20 | 7d 0d 09 09 09 09 09 09 |s info. |}.......|
|000018d0| 69 66 20 47 65 74 50 72 | 6f 63 65 73 73 49 6e 66 |if GetPr|ocessInf|
|000018e0| 6f 72 6d 61 74 69 6f 6e | 28 70 73 6e 2c 70 49 6e |ormation|(psn,pIn|
|000018f0| 66 6f 29 20 3c 3e 20 6e | 6f 45 72 72 20 74 68 65 |fo) <> n|oErr the|
|00001900| 6e 0d 09 09 09 09 09 09 | 09 62 65 67 69 6e 0d 09 |n.......|.begin..|
|00001910| 09 09 09 09 09 09 09 7b | 20 49 66 20 74 68 69 6e |.......{| If thin|
|00001920| 67 73 20 66 61 69 6c 65 | 64 2c 20 64 69 73 70 6c |gs faile|d, displ|
|00001930| 61 79 20 61 74 20 65 72 | 72 6f 72 20 63 6f 64 65 |ay at er|ror code|
|00001940| 2e 20 7d 0d 09 09 09 09 | 09 09 09 09 66 6f 6e 74 |. }.....|....font|
|00001950| 53 69 7a 65 20 3a 3d 20 | 32 34 3b 0d 09 09 09 09 |Size := |24;.....|
|00001960| 09 09 09 09 73 75 62 46 | 6f 6e 74 53 69 7a 65 20 |....subF|ontSize |
|00001970| 3a 3d 20 31 32 3b 0d 09 | 09 09 09 09 09 09 09 66 |:= 12;..|.......f|
|00001980| 6f 6e 74 46 61 63 65 20 | 3a 3d 20 5b 5d 3b 0d 09 |ontFace |:= [];..|
|00001990| 09 09 09 09 09 09 09 73 | 31 20 3a 3d 20 27 47 65 |.......s|1 := 'Ge|
|000019a0| 74 50 72 6f 63 65 73 73 | 49 6e 66 6f 72 6d 61 74 |tProcess|Informat|
|000019b0| 69 6f 6e 20 45 72 72 6f | 72 27 3b 0d 09 09 09 09 |ion Erro|r';.....|
|000019c0| 09 09 09 09 4e 75 6d 54 | 6f 53 74 72 69 6e 67 28 |....NumT|oString(|
|000019d0| 47 65 74 50 72 6f 63 65 | 73 73 49 6e 66 6f 72 6d |GetProce|ssInform|
|000019e0| 61 74 69 6f 6e 28 70 73 | 6e 2c 70 49 6e 66 6f 29 |ation(ps|n,pInfo)|
|000019f0| 2c 73 32 29 3b 0d 09 09 | 09 09 09 09 09 09 73 33 |,s2);...|......s3|
|00001a00| 20 3a 3d 20 27 27 3b 0d | 09 09 09 09 09 09 09 65 | := '';.|.......e|
|00001a10| 6e 64 0d 09 09 09 09 09 | 09 65 6c 73 65 0d 09 09 |nd......|.else...|
|00001a20| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00001a30| 09 09 09 7b 20 43 6f 6d | 70 75 74 65 20 74 68 65 |...{ Com|pute the|
|00001a40| 20 66 6f 6e 74 20 73 69 | 7a 65 20 61 6e 64 20 73 | font si|ze and s|
|00001a50| 74 79 6c 65 2e 20 7d 0d | 09 09 09 09 09 09 09 09 |tyle. }.|........|
|00001a60| 69 66 20 70 49 6e 66 6f | 2e 70 72 6f 63 65 73 73 |if pInfo|.process|
|00001a70| 53 69 7a 65 20 3c 20 6b | 4c 69 6d 69 74 4f 6e 31 |Size < k|LimitOn1|
|00001a80| 30 30 6b 53 7a 20 74 68 | 65 6e 0d 09 09 09 09 09 |00kSz th|en......|
|00001a90| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |....begi|n.......|
|00001aa0| 09 09 09 09 66 6f 6e 74 | 46 61 63 65 20 3a 3d 20 |....font|Face := |
|00001ab0| 5b 5d 3b 0d 09 09 09 09 | 09 09 09 09 09 09 66 6f |[];.....|......fo|
|00001ac0| 6e 74 53 69 7a 65 20 3a | 3d 20 28 28 28 72 2e 62 |ntSize :|= (((r.b|
|00001ad0| 6f 74 74 6f 6d 20 2d 20 | 72 2e 74 6f 70 29 20 64 |ottom - |r.top) d|
|00001ae0| 69 76 20 31 30 29 20 2a | 20 70 49 6e 66 6f 2e 70 |iv 10) *| pInfo.p|
|00001af0| 72 6f 63 65 73 73 53 69 | 7a 65 29 20 64 69 76 20 |rocessSi|ze) div |
|00001b00| 6d 61 78 31 30 30 6b 50 | 72 6f 63 53 7a 3b 0d 09 |max100kP|rocSz;..|
|00001b10| 09 09 09 09 09 09 09 09 | 65 6e 64 0d 09 09 09 09 |........|end.....|
|00001b20| 09 09 09 09 65 6c 73 65 | 0d 09 09 09 09 09 09 09 |....else|........|
|00001b30| 09 09 62 65 67 69 6e 0d | 09 09 09 09 09 09 09 09 |..begin.|........|
|00001b40| 09 09 66 6f 6e 74 46 61 | 63 65 20 3a 3d 20 5b 62 |..fontFa|ce := [b|
|00001b50| 6f 6c 64 5d 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |old];...|........|
|00001b60| 66 6f 6e 74 53 69 7a 65 | 20 3a 3d 20 28 28 28 72 |fontSize| := (((r|
|00001b70| 2e 62 6f 74 74 6f 6d 20 | 2d 20 72 2e 74 6f 70 29 |.bottom |- r.top)|
|00001b80| 20 64 69 76 20 31 30 29 | 20 2a 20 70 49 6e 66 6f | div 10)| * pInfo|
|00001b90| 2e 70 72 6f 63 65 73 73 | 53 69 7a 65 29 20 64 69 |.process|Size) di|
|00001ba0| 76 20 6d 61 78 50 72 6f | 63 53 7a 3b 0d 09 09 09 |v maxPro|cSz;....|
|00001bb0| 09 09 09 09 09 09 65 6e | 64 3b 0d 09 09 09 09 09 |......en|d;......|
|00001bc0| 09 09 09 69 66 20 66 6f | 6e 74 53 69 7a 65 20 3c |...if fo|ntSize <|
|00001bd0| 20 31 32 20 74 68 65 6e | 20 66 6f 6e 74 53 69 7a | 12 then| fontSiz|
|00001be0| 65 20 3a 3d 20 31 32 3b | 0d 09 09 09 09 09 09 09 |e := 12;|........|
|00001bf0| 09 73 75 62 46 6f 6e 74 | 53 69 7a 65 20 3a 3d 20 |.subFont|Size := |
|00001c00| 66 6f 6e 74 53 69 7a 65 | 20 64 69 76 20 32 3b 0d |fontSize| div 2;.|
|00001c10| 09 09 09 09 09 09 09 09 | 69 66 20 73 75 62 46 6f |........|if subFo|
|00001c20| 6e 74 53 69 7a 65 20 3c | 20 31 30 20 74 68 65 6e |ntSize <| 10 then|
|00001c30| 20 73 75 62 46 6f 6e 74 | 53 69 7a 65 20 3a 3d 20 | subFont|Size := |
|00001c40| 31 30 3b 0d 09 09 09 09 | 09 09 09 09 69 66 20 53 |10;.....|....if S|
|00001c50| 61 6d 65 50 72 6f 63 65 | 73 73 28 70 73 6e 2c 66 |ameProce|ss(psn,f|
|00001c60| 72 6f 6e 74 50 53 4e 2c | 62 29 20 3d 20 6e 6f 45 |rontPSN,|b) = noE|
|00001c70| 72 72 20 74 68 65 6e 0d | 09 09 09 09 09 09 09 09 |rr then.|........|
|00001c80| 09 69 66 20 62 20 74 68 | 65 6e 20 66 6f 6e 74 46 |.if b th|en fontF|
|00001c90| 61 63 65 20 3a 3d 20 66 | 6f 6e 74 46 61 63 65 20 |ace := f|ontFace |
|00001ca0| 2b 20 5b 69 74 61 6c 69 | 63 5d 3b 0d 0d 09 09 09 |+ [itali|c];.....|
|00001cb0| 09 09 09 09 09 7b 20 43 | 72 65 61 74 65 20 74 68 |.....{ C|reate th|
|00001cc0| 65 20 64 65 73 63 72 69 | 70 74 69 6f 6e 20 74 6f |e descri|ption to|
|00001cd0| 20 64 69 73 70 6c 61 79 | 2e 20 7d 0d 09 09 09 09 | display|. }.....|
|00001ce0| 09 09 09 09 4e 75 6d 54 | 6f 53 74 72 69 6e 67 28 |....NumT|oString(|
|00001cf0| 70 49 6e 66 6f 2e 70 72 | 6f 63 65 73 73 53 69 7a |pInfo.pr|ocessSiz|
|00001d00| 65 20 64 69 76 20 31 30 | 32 34 2c 73 7a 53 74 72 |e div 10|24,szStr|
|00001d10| 29 3b 0d 09 09 09 09 09 | 09 09 09 70 49 6e 66 6f |);......|...pInfo|
|00001d20| 2e 70 72 6f 63 65 73 73 | 41 63 74 69 76 65 54 69 |.process|ActiveTi|
|00001d30| 6d 65 20 3a 3d 20 70 49 | 6e 66 6f 2e 70 72 6f 63 |me := pI|nfo.proc|
|00001d40| 65 73 73 41 63 74 69 76 | 65 54 69 6d 65 20 64 69 |essActiv|eTime di|
|00001d50| 76 20 36 30 3b 0d 09 09 | 09 09 09 09 09 09 4e 75 |v 60;...|......Nu|
|00001d60| 6d 54 6f 53 74 72 69 6e | 67 28 70 49 6e 66 6f 2e |mToStrin|g(pInfo.|
|00001d70| 70 72 6f 63 65 73 73 41 | 63 74 69 76 65 54 69 6d |processA|ctiveTim|
|00001d80| 65 20 64 69 76 20 33 36 | 30 30 2c 63 70 75 48 72 |e div 36|00,cpuHr|
|00001d90| 53 74 72 29 3b 0d 09 09 | 09 09 09 09 09 09 69 66 |Str);...|......if|
|00001da0| 20 6c 65 6e 67 74 68 28 | 63 70 75 48 72 53 74 72 | length(|cpuHrStr|
|00001db0| 29 20 3d 20 31 20 74 68 | 65 6e 20 63 70 75 48 72 |) = 1 th|en cpuHr|
|00001dc0| 53 74 72 20 3a 3d 20 43 | 6f 6e 63 61 74 28 27 30 |Str := C|oncat('0|
|00001dd0| 27 2c 63 70 75 48 72 53 | 74 72 29 3b 0d 09 09 09 |',cpuHrS|tr);....|
|00001de0| 09 09 09 09 09 4e 75 6d | 54 6f 53 74 72 69 6e 67 |.....Num|ToString|
|00001df0| 28 28 70 49 6e 66 6f 2e | 70 72 6f 63 65 73 73 41 |((pInfo.|processA|
|00001e00| 63 74 69 76 65 54 69 6d | 65 20 64 69 76 20 36 30 |ctiveTim|e div 60|
|00001e10| 29 20 6d 6f 64 20 36 30 | 2c 63 70 75 4d 69 6e 53 |) mod 60|,cpuMinS|
|00001e20| 74 72 29 3b 0d 09 09 09 | 09 09 09 09 09 69 66 20 |tr);....|.....if |
|00001e30| 6c 65 6e 67 74 68 28 63 | 70 75 4d 69 6e 53 74 72 |length(c|puMinStr|
|00001e40| 29 20 3d 20 31 20 74 68 | 65 6e 20 63 70 75 4d 69 |) = 1 th|en cpuMi|
|00001e50| 6e 53 74 72 20 3a 3d 20 | 43 6f 6e 63 61 74 28 27 |nStr := |Concat('|
|00001e60| 30 27 2c 63 70 75 4d 69 | 6e 53 74 72 29 3b 0d 09 |0',cpuMi|nStr);..|
|00001e70| 09 09 09 09 09 09 09 4e | 75 6d 54 6f 53 74 72 69 |.......N|umToStri|
|00001e80| 6e 67 28 70 49 6e 66 6f | 2e 70 72 6f 63 65 73 73 |ng(pInfo|.process|
|00001e90| 41 63 74 69 76 65 54 69 | 6d 65 20 6d 6f 64 20 36 |ActiveTi|me mod 6|
|00001ea0| 30 2c 63 70 75 53 65 63 | 53 74 72 29 3b 0d 09 09 |0,cpuSec|Str);...|
|00001eb0| 09 09 09 09 09 09 69 66 | 20 6c 65 6e 67 74 68 28 |......if| length(|
|00001ec0| 63 70 75 53 65 63 53 74 | 72 29 20 3d 20 31 20 74 |cpuSecSt|r) = 1 t|
|00001ed0| 68 65 6e 20 63 70 75 53 | 65 63 53 74 72 20 3a 3d |hen cpuS|ecStr :=|
|00001ee0| 20 43 6f 6e 63 61 74 28 | 27 30 27 2c 63 70 75 53 | Concat(|'0',cpuS|
|00001ef0| 65 63 53 74 72 29 3b 0d | 09 09 09 09 09 09 09 09 |ecStr);.|........|
|00001f00| 47 65 74 44 61 74 65 54 | 69 6d 65 28 6c 61 75 6e |GetDateT|ime(laun|
|00001f10| 63 68 54 69 6d 65 29 3b | 0d 09 09 09 09 09 09 09 |chTime);|........|
|00001f20| 09 6c 61 75 6e 63 68 54 | 69 6d 65 20 3a 3d 20 6c |.launchT|ime := l|
|00001f30| 61 75 6e 63 68 54 69 6d | 65 20 2d 20 28 54 69 63 |aunchTim|e - (Tic|
|00001f40| 6b 43 6f 75 6e 74 20 2d | 20 70 49 6e 66 6f 2e 70 |kCount -| pInfo.p|
|00001f50| 72 6f 63 65 73 73 4c 61 | 75 6e 63 68 44 61 74 65 |rocessLa|unchDate|
|00001f60| 29 20 64 69 76 20 36 30 | 3b 0d 09 09 09 09 09 09 |) div 60|;.......|
|00001f70| 09 09 49 55 54 69 6d 65 | 53 74 72 69 6e 67 28 6c |..IUTime|String(l|
|00001f80| 61 75 6e 63 68 54 69 6d | 65 2c 66 61 6c 73 65 2c |aunchTim|e,false,|
|00001f90| 6c 61 75 6e 63 68 54 69 | 6d 65 53 74 72 29 3b 0d |launchTi|meStr);.|
|00001fa0| 09 09 09 09 09 09 09 09 | 49 55 44 61 74 65 53 74 |........|IUDateSt|
|00001fb0| 72 69 6e 67 28 6c 61 75 | 6e 63 68 54 69 6d 65 2c |ring(lau|nchTime,|
|00001fc0| 61 62 62 72 65 76 44 61 | 74 65 2c 6c 61 75 6e 63 |abbrevDa|te,launc|
|00001fd0| 68 44 61 74 65 53 74 72 | 29 3b 0d 09 09 09 09 09 |hDateStr|);......|
|00001fe0| 09 09 09 73 32 20 3a 3d | 20 43 6f 6e 63 61 74 28 |...s2 :=| Concat(|
|00001ff0| 27 4c 61 75 6e 63 68 65 | 64 3a 20 27 2c 6c 61 75 |'Launche|d: ',lau|
|00002000| 6e 63 68 54 69 6d 65 53 | 74 72 2c 27 20 6f 6e 20 |nchTimeS|tr,' on |
|00002010| 27 2c 6c 61 75 6e 63 68 | 44 61 74 65 53 74 72 29 |',launch|DateStr)|
|00002020| 3b 0d 09 09 09 09 09 09 | 09 09 73 33 20 3a 3d 20 |;.......|..s3 := |
|00002030| 43 6f 6e 63 61 74 28 27 | 53 69 7a 65 3a 20 27 2c |Concat('|Size: ',|
|00002040| 73 7a 53 74 72 2c 27 6b | 3b 20 43 50 55 20 74 69 |szStr,'k|; CPU ti|
|00002050| 6d 65 3a 20 27 2c 63 70 | 75 48 72 53 74 72 2c 27 |me: ',cp|uHrStr,'|
|00002060| 3a 27 2c 63 70 75 4d 69 | 6e 53 74 72 2c 27 3a 27 |:',cpuMi|nStr,':'|
|00002070| 2c 63 70 75 53 65 63 53 | 74 72 29 3b 0d 09 09 09 |,cpuSecS|tr);....|
|00002080| 09 09 09 09 65 6e 64 3b | 0d 09 09 0d 09 09 09 09 |....end;|........|
|00002090| 09 09 7b 20 50 69 63 6b | 20 61 20 72 61 6e 64 6f |..{ Pick| a rando|
|000020a0| 6d 20 6c 6f 63 61 74 69 | 6f 6e 20 66 6f 72 20 74 |m locati|on for t|
|000020b0| 68 65 20 74 65 78 74 20 | 74 68 61 74 27 73 20 63 |he text |that's c|
|000020c0| 65 72 74 61 69 6e 20 74 | 6f 20 73 68 6f 77 2e 20 |ertain t|o show. |
|000020d0| 7d 0d 09 09 09 09 09 09 | 69 66 20 66 6f 6e 74 53 |}.......|if fontS|
|000020e0| 69 7a 65 20 3d 20 31 32 | 20 74 68 65 6e 20 66 6f |ize = 12| then fo|
|000020f0| 6e 74 46 61 63 65 20 3a | 3d 20 66 6f 6e 74 46 61 |ntFace :|= fontFa|
|00002100| 63 65 20 2d 20 5b 6f 75 | 74 6c 69 6e 65 5d 3b 0d |ce - [ou|tline];.|
|00002110| 09 09 09 09 09 09 54 65 | 78 74 46 61 63 65 28 66 |......Te|xtFace(f|
|00002120| 6f 6e 74 46 61 63 65 29 | 3b 0d 09 09 09 09 09 09 |ontFace)|;.......|
|00002130| 54 65 78 74 53 69 7a 65 | 28 66 6f 6e 74 53 69 7a |TextSize|(fontSiz|
|00002140| 65 29 3b 0d 09 09 09 09 | 09 09 7b 20 4e 6f 74 65 |e);.....|..{ Note|
|00002150| 3a 20 73 72 63 43 6f 70 | 79 20 69 6e 20 74 65 78 |: srcCop|y in tex|
|00002160| 74 20 6d 6f 64 65 20 69 | 73 20 6e 6f 74 20 72 65 |t mode i|s not re|
|00002170| 63 6f 6d 6d 65 6e 64 65 | 64 20 28 61 63 63 6f 72 |commende|d (accor|
|00002180| 64 69 6e 67 20 74 6f 20 | 49 6e 73 69 64 65 20 4d |ding to |Inside M|
|00002190| 61 63 20 49 29 2c 20 62 | 75 74 20 69 74 20 77 6f |ac I), b|ut it wo|
|000021a0| 72 6b 73 20 66 6f 72 20 | 75 73 20 68 65 72 65 2e |rks for |us here.|
|000021b0| 20 7d 0d 09 09 09 09 09 | 09 54 65 78 74 4d 6f 64 | }......|.TextMod|
|000021c0| 65 28 73 72 63 43 6f 70 | 79 29 3b 0d 09 09 09 09 |e(srcCop|y);.....|
|000021d0| 09 09 47 65 74 46 6f 6e | 74 49 6e 66 6f 28 6d 61 |..GetFon|tInfo(ma|
|000021e0| 69 6e 46 6f 6e 74 49 6e | 66 6f 29 3b 0d 09 09 09 |inFontIn|fo);....|
|000021f0| 09 09 09 77 20 3a 3d 20 | 53 74 72 69 6e 67 57 69 |...w := |StringWi|
|00002200| 64 74 68 28 73 31 29 3b | 0d 09 09 09 09 09 09 54 |dth(s1);|.......T|
|00002210| 65 78 74 53 69 7a 65 28 | 73 75 62 46 6f 6e 74 53 |extSize(|subFontS|
|00002220| 69 7a 65 29 3b 0d 09 09 | 09 09 09 09 47 65 74 46 |ize);...|....GetF|
|00002230| 6f 6e 74 49 6e 66 6f 28 | 73 75 62 46 6f 6e 74 49 |ontInfo(|subFontI|
|00002240| 6e 66 6f 29 3b 0d 09 09 | 09 09 09 09 77 20 3a 3d |nfo);...|....w :=|
|00002250| 20 6d 61 78 33 28 77 2c | 53 74 72 69 6e 67 57 69 | max3(w,|StringWi|
|00002260| 64 74 68 28 73 32 29 2c | 53 74 72 69 6e 67 57 69 |dth(s2),|StringWi|
|00002270| 64 74 68 28 73 33 29 29 | 3b 0d 09 09 09 09 09 09 |dth(s3))|;.......|
|00002280| 68 20 3a 3d 20 72 2e 72 | 69 67 68 74 20 2d 20 72 |h := r.r|ight - r|
|00002290| 2e 6c 65 66 74 20 2d 20 | 77 20 2d 20 32 30 3b 0d |.left - |w - 20;.|
|000022a0| 09 09 09 09 09 09 69 66 | 20 68 20 3c 3d 20 30 20 |......if| h <= 0 |
|000022b0| 74 68 65 6e 20 68 20 3a | 3d 20 31 3b 0d 09 09 09 |then h :|= 1;....|
|000022c0| 09 09 09 68 20 3a 3d 20 | 72 2e 6c 65 66 74 20 2b |...h := |r.left +|
|000022d0| 20 31 30 20 2b 20 61 62 | 73 28 52 61 6e 64 6f 6d | 10 + ab|s(Random|
|000022e0| 20 6d 6f 64 20 68 29 3b | 0d 09 09 09 09 09 09 76 | mod h);|.......v|
|000022f0| 20 3a 3d 20 72 2e 74 6f | 70 20 2b 20 31 30 20 2b | := r.to|p + 10 +|
|00002300| 20 6d 61 69 6e 46 6f 6e | 74 49 6e 66 6f 2e 61 73 | mainFon|tInfo.as|
|00002310| 63 65 6e 74 3b 0d 09 09 | 09 09 09 09 76 20 3a 3d |cent;...|....v :=|
|00002320| 20 76 20 2b 20 61 62 73 | 28 52 61 6e 64 6f 6d 20 | v + abs|(Random |
|00002330| 6d 6f 64 20 28 72 2e 62 | 6f 74 74 6f 6d 20 2d 20 |mod (r.b|ottom - |
|00002340| 72 2e 74 6f 70 20 2d 20 | 32 30 20 2d 20 6d 61 69 |r.top - |20 - mai|
|00002350| 6e 46 6f 6e 74 49 6e 66 | 6f 2e 61 73 63 65 6e 74 |nFontInf|o.ascent|
|00002360| 20 2d 20 6d 61 69 6e 46 | 6f 6e 74 49 6e 66 6f 2e | - mainF|ontInfo.|
|00002370| 64 65 73 63 65 6e 74 20 | 2d 0d 09 09 09 09 09 09 |descent |-.......|
|00002380| 09 32 20 2a 20 28 73 75 | 62 46 6f 6e 74 49 6e 66 |.2 * (su|bFontInf|
|00002390| 6f 2e 6c 65 61 64 69 6e | 67 20 2b 20 73 75 62 46 |o.leadin|g + subF|
|000023a0| 6f 6e 74 49 6e 66 6f 2e | 61 73 63 65 6e 74 20 2b |ontInfo.|ascent +|
|000023b0| 20 73 75 62 46 6f 6e 74 | 49 6e 66 6f 2e 64 65 73 | subFont|Info.des|
|000023c0| 63 65 6e 74 29 29 29 3b | 0d 09 09 09 09 09 09 64 |cent)));|.......d|
|000023d0| 65 73 63 52 65 63 74 2e | 74 6f 70 20 3a 3d 20 76 |escRect.|top := v|
|000023e0| 2d 6d 61 69 6e 46 6f 6e | 74 49 6e 66 6f 2e 61 73 |-mainFon|tInfo.as|
|000023f0| 63 65 6e 74 2d 31 30 3b | 0d 09 09 09 09 09 09 64 |cent-10;|.......d|
|00002400| 65 73 63 52 65 63 74 2e | 6c 65 66 74 20 3a 3d 20 |escRect.|left := |
|00002410| 68 2d 31 30 3b 0d 09 09 | 09 09 09 09 64 65 73 63 |h-10;...|....desc|
|00002420| 52 65 63 74 2e 62 6f 74 | 74 6f 6d 20 3a 3d 20 76 |Rect.bot|tom := v|
|00002430| 2b 6d 61 69 6e 46 6f 6e | 74 49 6e 66 6f 2e 64 65 |+mainFon|tInfo.de|
|00002440| 73 63 65 6e 74 20 2b 0d | 09 09 09 09 09 09 09 32 |scent +.|.......2|
|00002450| 20 2a 20 28 73 75 62 46 | 6f 6e 74 49 6e 66 6f 2e | * (subF|ontInfo.|
|00002460| 6c 65 61 64 69 6e 67 2b | 73 75 62 46 6f 6e 74 49 |leading+|subFontI|
|00002470| 6e 66 6f 2e 61 73 63 65 | 6e 74 2b 73 75 62 46 6f |nfo.asce|nt+subFo|
|00002480| 6e 74 49 6e 66 6f 2e 64 | 65 73 63 65 6e 74 29 20 |ntInfo.d|escent) |
|00002490| 2b 20 31 30 3b 0d 09 09 | 09 09 09 09 64 65 73 63 |+ 10;...|....desc|
|000024a0| 52 65 63 74 2e 72 69 67 | 68 74 20 3a 3d 20 68 20 |Rect.rig|ht := h |
|000024b0| 2b 20 77 20 2b 20 31 30 | 3b 0d 0d 09 09 09 09 09 |+ w + 10|;.......|
|000024c0| 09 7b 20 44 72 61 77 20 | 74 68 65 20 62 6f 78 2e |.{ Draw |the box.|
|000024d0| 20 7d 0d 09 09 09 09 09 | 09 46 69 6c 6c 52 6f 75 | }......|.FillRou|
|000024e0| 6e 64 52 65 63 74 28 64 | 65 73 63 52 65 63 74 2c |ndRect(d|escRect,|
|000024f0| 20 32 30 2c 20 32 30 2c | 20 70 61 72 61 6d 73 5e | 20, 20,| params^|
|00002500| 2e 71 64 47 6c 6f 62 61 | 6c 73 43 6f 70 79 5e 2e |.qdGloba|lsCopy^.|
|00002510| 71 64 57 68 69 74 65 29 | 3b 0d 09 09 09 09 09 09 |qdWhite)|;.......|
|00002520| 46 72 61 6d 65 52 6f 75 | 6e 64 52 65 63 74 28 64 |FrameRou|ndRect(d|
|00002530| 65 73 63 52 65 63 74 2c | 20 32 30 2c 20 32 30 29 |escRect,| 20, 20)|
|00002540| 3b 0d 09 09 09 09 0d 09 | 09 09 09 09 09 7b 20 44 |;.......|.....{ D|
|00002550| 72 61 77 20 74 68 65 20 | 70 72 6f 63 65 73 73 20 |raw the |process |
|00002560| 6e 61 6d 65 2e 20 7d 0d | 09 09 09 09 09 09 54 65 |name. }.|......Te|
|00002570| 78 74 53 69 7a 65 28 66 | 6f 6e 74 53 69 7a 65 29 |xtSize(f|ontSize)|
|00002580| 3b 0d 09 09 09 09 09 09 | 4d 6f 76 65 54 6f 28 68 |;.......|MoveTo(h|
|00002590| 2c 76 29 3b 0d 09 09 09 | 09 09 09 44 72 61 77 53 |,v);....|...DrawS|
|000025a0| 74 72 69 6e 67 28 73 31 | 29 3b 0d 09 09 09 09 0d |tring(s1|);......|
|000025b0| 09 09 09 09 09 09 7b 20 | 44 72 61 77 20 74 68 65 |......{ |Draw the|
|000025c0| 20 70 72 6f 63 65 73 73 | 20 69 6e 66 6f 2e 20 7d | process| info. }|
|000025d0| 0d 09 09 09 09 09 09 54 | 65 78 74 53 69 7a 65 28 |.......T|extSize(|
|000025e0| 73 75 62 46 6f 6e 74 53 | 69 7a 65 29 3b 0d 09 09 |subFontS|ize);...|
|000025f0| 09 09 09 09 4d 6f 76 65 | 54 6f 28 68 2c 76 2b 6d |....Move|To(h,v+m|
|00002600| 61 69 6e 46 6f 6e 74 49 | 6e 66 6f 2e 64 65 73 63 |ainFontI|nfo.desc|
|00002610| 65 6e 74 2b 73 75 62 46 | 6f 6e 74 49 6e 66 6f 2e |ent+subF|ontInfo.|
|00002620| 6c 65 61 64 69 6e 67 2b | 73 75 62 46 6f 6e 74 49 |leading+|subFontI|
|00002630| 6e 66 6f 2e 61 73 63 65 | 6e 74 29 3b 0d 09 09 09 |nfo.asce|nt);....|
|00002640| 09 09 09 44 72 61 77 53 | 74 72 69 6e 67 28 73 32 |...DrawS|tring(s2|
|00002650| 29 3b 0d 09 09 09 09 09 | 09 4d 6f 76 65 54 6f 28 |);......|.MoveTo(|
|00002660| 68 2c 76 2b 6d 61 69 6e | 46 6f 6e 74 49 6e 66 6f |h,v+main|FontInfo|
|00002670| 2e 64 65 73 63 65 6e 74 | 2b 73 75 62 46 6f 6e 74 |.descent|+subFont|
|00002680| 49 6e 66 6f 2e 64 65 73 | 63 65 6e 74 2b 20 32 20 |Info.des|cent+ 2 |
|00002690| 2a 20 28 73 75 62 46 6f | 6e 74 49 6e 66 6f 2e 6c |* (subFo|ntInfo.l|
|000026a0| 65 61 64 69 6e 67 2b 73 | 75 62 46 6f 6e 74 49 6e |eading+s|ubFontIn|
|000026b0| 66 6f 2e 61 73 63 65 6e | 74 29 29 3b 0d 09 09 09 |fo.ascen|t));....|
|000026c0| 09 09 09 44 72 61 77 53 | 74 72 69 6e 67 28 73 33 |...DrawS|tring(s3|
|000026d0| 29 3b 0d 09 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |);......|end;....|
|000026e0| 65 6e 64 3b 0d 0d 09 09 | 44 6f 44 72 61 77 46 72 |end;....|DoDrawFr|
|000026f0| 61 6d 65 20 3a 3d 20 6e | 6f 45 72 72 3b 0d 0d 09 |ame := n|oErr;...|
|00002700| 65 6e 64 3b 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 44 |end;..fu|nction D|
|00002710| 6f 43 6c 6f 73 65 20 28 | 73 74 6f 72 61 67 65 3a |oClose (|storage:|
|00002720| 20 48 61 6e 64 6c 65 3b | 20 62 6c 61 6e 6b 52 67 | Handle;| blankRg|
|00002730| 6e 3a 20 52 67 6e 48 61 | 6e 64 6c 65 3b 20 70 61 |n: RgnHa|ndle; pa|
|00002740| 72 61 6d 73 3a 20 47 4d | 50 61 72 61 6d 42 6c 6f |rams: GM|ParamBlo|
|00002750| 63 6b 50 74 72 29 3a 20 | 4f 53 45 72 72 3b 0d 09 |ckPtr): |OSErr;..|
|00002760| 7b 20 46 72 65 65 20 6f | 75 72 20 70 65 72 73 69 |{ Free o|ur persi|
|00002770| 73 74 65 6e 74 20 64 61 | 74 61 2e 20 7d 0d 0d 09 |stent da|ta. }...|
|00002780| 62 65 67 69 6e 0d 09 09 | 69 66 20 73 74 6f 72 61 |begin...|if stora|
|00002790| 67 65 20 3c 3e 20 6e 69 | 6c 20 74 68 65 6e 20 44 |ge <> ni|l then D|
|000027a0| 69 73 70 6f 73 48 61 6e | 64 6c 65 28 73 74 6f 72 |isposHan|dle(stor|
|000027b0| 61 67 65 29 3b 0d 09 09 | 44 6f 43 6c 6f 73 65 20 |age);...|DoClose |
|000027c0| 3a 3d 20 6e 6f 45 72 72 | 3b 0d 09 65 6e 64 3b 0d |:= noErr|;..end;.|
|000027d0| 0d 66 75 6e 63 74 69 6f | 6e 20 44 6f 53 65 74 75 |.functio|n DoSetu|
|000027e0| 70 20 28 62 6c 61 6e 6b | 52 67 6e 3a 20 72 67 6e |p (blank|Rgn: rgn|
|000027f0| 48 61 6e 64 6c 65 3b 20 | 6d 65 73 73 61 67 65 3a |Handle; |message:|
|00002800| 20 69 6e 74 65 67 65 72 | 3b 20 70 61 72 61 6d 73 | integer|; params|
|00002810| 3a 20 47 4d 50 61 72 61 | 6d 42 6c 6f 63 6b 50 74 |: GMPara|mBlockPt|
|00002820| 72 29 3a 20 4f 53 45 72 | 72 3b 0d 09 7b 54 68 69 |r): OSEr|r;..{Thi|
|00002830| 73 20 69 73 20 63 61 6c | 6c 65 64 20 77 68 65 6e |s is cal|led when|
|00002840| 20 74 68 65 20 75 73 65 | 64 20 63 6c 69 63 6b 73 | the use|d clicks|
|00002850| 20 6f 6e 20 61 20 62 75 | 74 74 6f 6e 20 69 6e 20 | on a bu|tton in |
|00002860| 74 68 65 20 43 6f 6e 74 | 72 6f 6c 20 50 61 6e 65 |the Cont|rol Pane|
|00002870| 6c 2e 7d 0d 0d 09 62 65 | 67 69 6e 0d 09 09 44 6f |l.}...be|gin...Do|
|00002880| 53 65 74 75 70 20 3a 3d | 20 6e 6f 45 72 72 3b 0d |Setup :=| noErr;.|
|00002890| 09 65 6e 64 3b 0d 0d 65 | 6e 64 2e 00 00 00 00 00 |.end;..e|nd......|
|000028a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 00 00 01 00 00 00 0b b6 | 00 00 0a b6 00 00 00 9a |........|........|
|00002910| 01 00 04 d0 01 00 01 00 | ff ff 00 00 00 00 07 f9 |........|........|
|00002920| 00 00 00 04 00 00 01 00 | ff ff 01 00 04 a8 03 00 |........|........|
|00002930| 07 37 2e 30 66 6f 2e 70 | 02 00 00 00 50 61 72 74 |.7.0fo.p|....Part|
|00002940| 53 49 54 78 00 00 00 00 | 00 00 00 00 00 01 86 64 |SITx....|.......d|
|00002950| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00002960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002970| 00 00 a9 81 4a 54 00 00 | 00 00 00 00 0c 50 00 3c |....JT..|.....P.<|
|00002980| 00 00 00 08 00 00 01 00 | ff ff ff ff ff ff 05 b8 |........|........|
|00002990| 00 00 00 10 01 00 05 4a | 00 a8 00 00 00 00 02 07 |.......J|........|
|000029a0| 01 00 ff ff ff ff ff ff | 01 39 00 00 00 10 00 00 |........|.9......|
|000029b0| 00 00 00 00 00 03 00 01 | 60 d5 04 c9 bf ff 00 03 |........|`.......|
|000029c0| 10 80 01 00 05 f6 01 00 | 05 8a 01 00 05 8a 01 00 |........|........|
|000029d0| 03 0c 01 00 03 c0 00 08 | 00 ff 00 07 d1 c1 97 07 |........|........|
|000029e0| 01 70 04 00 00 63 01 00 | 05 ae ff ff ff ff 01 00 |.p...c..|........|
|000029f0| 05 ae 00 00 00 98 01 00 | 03 b8 00 0c 00 38 00 16 |........|.....8..|
|00002a00| 00 00 00 0c a3 c2 7c 87 | 79 27 c0 7f 4a 6b 0c 1f |......|.|y'..Jk..|
|00002a10| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 0a 80 01 |...H..Ge|neva....|
|00002a20| 80 01 7f ff 7f ff 01 23 | 00 00 00 14 00 01 3a f8 |.......#|......:.|
|00002a30| 00 0a 00 00 00 00 00 03 | 00 04 00 27 00 0a 03 15 |........|...'....|
|00002a40| 02 3c 00 2a 00 03 03 63 | 04 7d a4 0f bf 1f 00 00 |.<.*...c|.}......|
|00002a50| 1a 31 00 00 1a 31 00 00 | 18 8f 01 00 00 00 00 1e |.1...1..|........|
|00002a60| 00 27 00 0a 03 15 02 3c | 00 2a 00 03 03 63 04 7d |.'.....<|.*...c.}|
|00002a70| 00 00 18 8f 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a80| 00 7e 0e 50 61 73 63 61 | 6c 20 53 79 6d 62 6f 6c |.~.Pasca|l Symbol|
|00002a90| 73 00 02 46 4f 49 13 47 | 52 41 50 48 49 43 53 4d |s..FOI.G|RAPHICSM|
|00002aa0| 4f 44 55 4c 45 54 59 50 | 45 53 0a 47 45 53 54 41 |ODULETYP|ES.GESTA|
|00002ab0| 4c 54 45 51 55 4d 07 4f | 53 55 54 49 4c 53 09 54 |LTEQUM.O|SUTILS.T|
|00002ac0| 4f 4f 4c 55 54 49 4c 53 | 06 4d 45 4d 4f 52 59 45 |OOLUTILS|.MEMORYE|
|00002ad0| 05 46 4f 4e 54 53 08 50 | 41 43 4b 41 47 45 53 53 |.FONTS.P|ACKAGESS|
|00002ae0| 09 50 52 4f 43 45 53 53 | 45 53 05 46 49 4c 45 53 |.PROCESS|ES.FILES|
|00002af0| 05 53 4f 55 4e 44 09 51 | 55 49 43 4b 44 52 41 57 |.SOUND.Q|UICKDRAW|
|00002b00| 00 00 08 d6 00 40 02 46 | 4f 49 54 00 00 00 00 00 |.....@.F|OIT.....|
|00002b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b40| 00 00 00 00 00 00 f3 5e | 66 06 01 00 00 70 ff ff |.......^|f....p..|
|00002b50| ff ff 00 00 00 00 00 00 | 00 00 01 00 06 08 00 00 |........|........|
|00002b60| 00 00 01 00 08 d6 00 00 | 00 00 a4 0f c0 4d 00 6e |........|.....M.n|
|00002b70| 00 f4 08 25 00 c6 0c 44 | 4f 49 4e 49 54 49 41 4c |...%...D|OINITIAL|
|00002b80| 49 5a 45 4c 45 54 59 50 | 45 53 00 00 00 00 00 00 |IZELETYP|ES......|
|00002b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bb0| 00 00 00 00 00 00 30 2e | ff e4 ff ff ff ff 01 00 |......0.|........|
|00002bc0| 02 1e ff ff ff ff 00 00 | 00 10 01 00 05 01 00 01 |........|........|
|00002bd0| 01 00 00 e0 ff ff 00 40 | 00 14 ff ff 00 00 00 00 |.......@|........|
|00002be0| 00 00 00 00 00 6e 07 53 | 54 4f 52 41 47 45 41 4c |.....n.S|TORAGEAL|
|00002bf0| 49 5a 45 4c 45 54 59 50 | 45 53 00 00 00 00 00 00 |IZELETYP|ES......|
|00002c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c20| 00 00 00 00 00 00 30 06 | 48 c0 01 00 01 4a 01 00 |......0.|H....J..|
|00002c30| 01 b4 01 00 01 4a 0c 00 | 02 a2 01 00 02 01 12 6e |.....J..|.......n|
|00002c40| ff ff 00 02 00 00 00 10 | 48 c6 bc 80 6f 08 00 2e |........|H...o...|
|00002c50| 08 42 4c 41 4e 4b 52 47 | 4e 4c 49 5a 45 4c 45 54 |.BLANKRG|NLIZELET|
|00002c60| 59 50 45 53 00 00 00 00 | 00 00 00 00 00 00 00 00 |YPES....|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c90| ff f4 30 2e ff ff ff ff | ff ff ff ff 01 00 01 b4 |..0.....|........|
|00002ca0| 0c 00 50 e0 01 00 02 00 | 00 f2 ff ff 00 02 00 00 |..P.....|........|
|00002cb0| 00 0c 48 c0 22 04 92 80 | 00 c5 06 50 41 52 41 4d |..H."...|...PARAM|
|00002cc0| 53 44 4c 45 49 5a 45 4c | 45 54 59 50 45 53 00 00 |SDLEIZEL|ETYPES..|
|00002cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 00 00 00 00 00 00 | 00 00 3d 40 ff ec ff ff |........|..=@....|
|00002d00| ff ff ff ff ff ff ff ff | ff ff 02 00 11 24 01 00 |........|.....$..|
|00002d10| 02 00 01 fc ff ff 00 02 | 00 00 00 08 ff ea 3d 40 |........|......=@|
|00002d20| ff ee 00 2e 07 44 4f 42 | 4c 41 4e 4b 4e 4c 4f 43 |.....DOB|LANKNLOC|
|00002d30| 4b 50 54 52 59 50 45 53 | 00 00 00 00 00 00 00 00 |KPTRYPES|........|
|00002d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d60| 00 00 00 00 ff f2 30 2e | 01 00 03 cc ff ff ff ff |......0.|........|
|00002d70| ff ff ff ff 00 00 00 10 | 01 00 05 01 00 01 01 00 |........|........|
|00002d80| 02 8e ff ff 00 2e 00 14 | ff ff 00 00 00 00 00 00 |........|........|
|00002d90| 00 00 00 1e 07 53 54 4f | 52 41 47 45 4e 4c 4f 43 |.....STO|RAGENLOC|
|00002da0| 4b 50 54 52 59 50 45 53 | 00 00 00 00 00 00 00 00 |KPTRYPES|........|
|00002db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dd0| 00 00 00 00 00 a0 3d 40 | 01 00 02 f8 01 00 03 62 |......=@|.......b|
|00002de0| 01 00 02 f8 0c 00 02 a2 | 01 00 02 00 0f 0c ff ff |........|........|
|00002df0| 00 02 00 00 00 10 3d 40 | ff f2 2f 0c 00 00 08 42 |......=@|../....B|
|00002e00| 4c 41 4e 4b 52 47 4e 4c | 4f 43 4b 50 54 52 59 50 |LANKRGNL|OCKPTRYP|
|00002e10| 45 53 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ES......|........|
|00002e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 2f 0c |........|....../.|
|00002e40| a9 17 ff ff ff ff ff ff | ff ff 01 00 03 62 0c 00 |........|.....b..|
|00002e50| 50 e0 01 00 02 00 10 ae | ff ff 00 02 00 00 00 0c |P.......|........|
|00002e60| 2f 0c a9 1f 4c ee 00 f0 | 06 50 41 52 41 4d 53 44 |/...L...|.PARAMSD|
|00002e70| 4c 45 4f 43 4b 50 54 52 | 59 50 45 53 00 00 00 00 |LEOCKPTR|YPES....|
|00002e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ea0| 00 00 00 00 00 00 00 00 | 48 c7 2f 07 ff ff ff ff |........|H./.....|
|00002eb0| ff ff ff ff ff ff ff ff | 02 00 11 24 01 00 02 00 |........|...$....|
|00002ec0| 0f 00 ff ff 00 02 00 00 | 00 08 4e ba 00 20 70 02 |........|..N.. p.|
|00002ed0| 00 ef 0b 44 4f 44 52 41 | 57 46 52 41 4d 45 4b 50 |...DODRA|WFRAMEKP|
|00002ee0| 54 52 59 50 45 53 00 00 | 00 00 00 00 00 00 00 00 |TRYPES..|........|
|00002ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f10| 00 00 2f 2e 00 24 ff ff | ff ff 01 00 05 7a ff ff |../..$..|.....z..|
|00002f20| ff ff 00 00 00 10 01 00 | 05 01 00 01 01 00 04 3c |........|.......<|
|00002f30| ff ff 00 1a 00 14 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00002f40| 00 6d 07 53 54 4f 52 41 | 47 45 52 41 4d 45 4b 50 |.m.STORA|GERAMEKP|
|00002f50| 54 52 59 50 45 53 00 00 | 00 00 00 00 00 00 00 00 |TRYPES..|........|
|00002f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f80| 00 00 2b 6c 00 98 01 00 | 04 a6 01 00 05 10 01 00 |..+l....|........|
|00002f90| 04 a6 0c 00 02 a2 01 00 | 02 00 1f f0 ff ff 00 02 |........|........|
|00002fa0| 00 00 00 10 3f 3c 01 00 | 48 6e 00 f0 08 42 4c 41 |....?<..|Hn...BLA|
|00002fb0| 4e 4b 52 47 4e 41 4d 45 | 4b 50 54 52 59 50 45 53 |NKRGNAME|KPTRYPES|
|00002fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 46 6c 61 67 |........|....Flag|
|00002ff0| ff ff ff ff ff ff ff ff | 01 00 05 10 0c 00 50 e0 |........|......P.|
|00003000| 01 00 02 00 10 14 ff ff | 00 02 00 00 00 0c 48 80 |........|......H.|
|00003010| 48 c0 2e 00 00 08 06 50 | 41 52 41 4d 53 44 4c 45 |H......P|ARAMSDLE|
|00003020| 4d 45 4b 50 54 52 59 50 | 45 53 00 00 00 00 00 00 |MEKPTRYP|ES......|
|00003030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003050| 00 00 00 00 00 00 f7 06 | 4e ba ff ff ff ff ff ff |........|N.......|
|00003060| ff ff ff ff ff ff 02 00 | 11 24 01 00 02 00 00 ae |........|.$......|
|00003070| ff ff 00 02 00 00 00 08 | 70 00 4c ee 10 80 00 f4 |........|p.L.....|
|00003080| 07 44 4f 43 4c 4f 53 45 | 4e 4c 4f 43 4b 50 54 52 |.DOCLOSE|NLOCKPTR|
|00003090| 59 50 45 53 00 00 00 00 | 00 00 00 00 00 00 00 00 |YPES....|........|
|000030a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 2d 4c ff f6 01 00 07 28 | ff ff ff ff ff ff ff ff |-L.....(|........|
|000030d0| 00 00 00 10 01 00 05 01 | 00 01 01 00 05 ea ff ff |........|........|
|000030e0| 00 00 00 14 ff ff 00 00 | 00 00 00 00 00 00 00 f6 |........|........|
|000030f0| 07 53 54 4f 52 41 47 45 | 4e 4c 4f 43 4b 50 54 52 |.STORAGE|NLOCKPTR|
|00003100| 59 50 45 53 00 00 00 00 | 00 00 00 00 00 00 00 00 |YPES....|........|
|00003110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003130| 2f 0c 4e ba 01 00 06 54 | 01 00 06 be 01 00 06 54 |/.N....T|.......T|
|00003140| 0c 00 02 a2 01 00 02 00 | 12 46 ff ff 00 02 00 00 |........|.F......|
|00003150| 00 10 2f 00 2f 0c 4e ad | 00 5a 08 42 4c 41 4e 4b |.././.N.|.Z.BLANK|
|00003160| 52 47 4e 4c 4f 43 4b 50 | 54 52 59 50 45 53 00 00 |RGNLOCKP|TRYPES..|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003190| 00 00 00 00 00 00 00 00 | 00 00 73 56 61 6c ff ff |........|..sVal..|
|000031a0| ff ff ff ff ff ff 01 00 | 06 be 0c 00 50 e0 01 00 |........|....P...|
|000031b0| 02 00 00 14 ff ff 00 02 | 00 00 00 0c be ae 00 08 |........|........|
|000031c0| 6e 0a 00 07 06 50 41 52 | 41 4d 53 44 4c 45 4f 43 |n....PAR|AMSDLEOC|
|000031d0| 4b 50 54 52 59 50 45 53 | 00 00 00 00 00 00 00 00 |KPTRYPES|........|
|000031e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003200| 00 00 00 00 13 18 26 6e | ff ff ff ff ff ff ff ff |......&n|........|
|00003210| ff ff ff ff 02 00 11 24 | 01 00 02 00 00 08 ff ff |.......$|........|
|00003220| 00 02 00 00 00 08 00 10 | 67 06 20 07 00 00 07 44 |........|g. ....D|
|00003230| 4f 53 45 54 55 50 4e 4c | 4f 43 4b 50 54 52 59 50 |OSETUPNL|OCKPTRYP|
|00003240| 45 53 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ES......|........|
|00003250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 48 6e |........|......Hn|
|00003270| fe 98 ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |........|........|
|00003280| 00 10 01 00 05 01 00 01 | 01 00 07 98 ff ff 00 a0 |........|........|
|00003290| 00 12 ff ff 00 00 00 00 | 00 00 00 00 00 14 08 42 |........|.......B|
|000032a0| 4c 41 4e 4b 52 47 4e 4c | 4f 43 4b 50 54 52 59 50 |LANKRGNL|OCKPTRYP|
|000032b0| 45 53 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ES......|........|
|000032c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 2f 00 |........|....../.|
|000032e0| 48 6e ff ff ff ff 01 00 | 08 02 01 00 08 02 0c 00 |Hn......|........|
|000032f0| 50 e0 01 00 02 00 0f ef | ff ff 00 02 00 00 00 0e |P.......|........|
|00003300| 66 16 70 00 2f 00 00 49 | 07 4d 45 53 53 41 47 45 |f.p./..I|.MESSAGE|
|00003310| 4c 45 4f 43 4b 50 54 52 | 59 50 45 53 00 00 00 00 |LEOCKPTR|YPES....|
|00003320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003340| 00 00 00 00 00 00 00 00 | 3f 00 a9 c8 ff ff ff ff |........|?.......|
|00003350| 01 00 08 6c 01 00 08 6c | 00 00 00 10 01 00 02 00 |...l...l|........|
|00003360| 10 10 ff ff 00 02 00 00 | 00 0c 2f 00 72 77 2f 01 |........|../.rw/.|
|00003370| 00 14 06 50 41 52 41 4d | 53 52 4c 45 4f 43 4b 50 |...PARAM|SRLEOCKP|
|00003380| 54 52 59 50 45 53 00 00 | 00 00 00 00 00 00 00 00 |TRYPES..|........|
|00003390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033b0| 00 00 2f 2e ff fc ff ff | ff ff ff ff ff ff ff ff |../.....|........|
|000033c0| ff ff 02 00 11 24 01 00 | 02 00 1f 98 ff ff 00 02 |.....$..|........|
|000033d0| 00 00 00 08 66 0e 20 6e | ff fc 00 00 00 d8 a3 4b |....f. n|.......K|
|000033e0| 78 89 a4 0f c0 51 a4 0f | bf 1f 00 00 ff ff ff ff |x....Q..|........|
|000033f0| 42 85 08 08 00 00 00 00 | 00 00 01 00 00 6e 00 0c |B.......|.....n..|
|00003400| 00 23 5a 8e 00 23 8f 3e | 00 07 00 42 00 02 00 23 |.#Z..#.>|...B...#|
|00003410| e2 9c 00 23 eb 72 00 20 | a4 0f c0 4d 00 00 00 00 |...#.r. |...M....|
|00003420| 00 00 00 00 00 05 a3 fd | 5c 8b 00 00 00 00 00 00 |........|\.......|
|00003430| 00 00 00 00 a3 ff d4 e6 | 00 00 00 00 00 00 00 00 |........|........|
|00003440| 00 00 a3 67 db d2 00 00 | 00 00 00 00 00 00 00 00 |...g....|........|
|00003450| a3 fe af 61 00 00 00 00 | 00 00 00 00 00 00 a3 fe |...a....|........|
|00003460| af 60 00 00 00 00 00 00 | 00 00 00 00 a3 fe af 5f |.`......|......._|
|00003470| 00 00 00 00 00 00 00 00 | 00 00 a3 fd 6d f2 00 00 |........|....m...|
|00003480| 00 00 00 00 00 00 00 00 | a3 fd 6c ac 00 00 00 00 |........|..l.....|
|00003490| 00 00 00 00 00 00 a3 fd | 6c a6 00 00 00 00 00 00 |........|l.......|
|000034a0| 00 00 00 00 a3 fd 5c 89 | 00 00 00 00 00 00 00 00 |......\.|........|
|000034b0| 00 09 a3 fd 5c 85 00 00 | 01 00 00 00 0b b6 00 00 |....\...|........|
|000034c0| 0a b6 00 00 00 9a 00 22 | 1d ac 10 e6 00 00 00 1c |......."|........|
|000034d0| 00 76 00 01 75 6e 69 74 | 00 03 00 12 4d 50 53 52 |.v..unit|....MPSR|
|000034e0| 00 01 00 42 00 02 00 00 | 00 00 00 00 00 00 00 00 |...B....|........|
|000034f0| 00 07 00 09 00 00 00 7e | 00 00 00 00 00 03 00 13 |.......~|........|
|00003500| 00 00 01 00 00 00 00 00 | 00 00 00 1d 00 00 09 da |........|........|
|00003510| 00 00 00 00 03 ed ff ff | 00 00 00 10 00 00 00 00 |........|........|
|00003520| 03 f0 ff ff 00 00 00 5c | 00 00 00 00 08 50 61 63 |.......\|.....Pac|
|00003530| 6b 53 79 6d 73 09 55 6e | 69 74 4e 61 6d 65 73 09 |kSyms.Un|itNames.|
|00003540| 53 79 6d 62 54 61 62 6c | 65 06 48 65 61 64 65 72 |SymbTabl|e.Header|
|00003550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+